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On n'est jamais si bien servi que par soi-meme... 


Messe, TSERVEUR 





Créez votre propre micro-serveur sur Thomson. 


FIL vous ouvre les portes de la télématique La Mallette Communication 
avec la Mallette Communication: 2 logiciels 695 F* 

Micro Serveur : | 

° La messager messagerie : Boîtes aux lettres et sur Thomson TO8, TO9, T09+Disquettes. 
petites annonces pour 98 abonnés. 

e Le journal : 85 écrans consécutifs à créer 

avec un ‘éditeur de structures arborescentes” 

puis à consulter. 

e Le téléchargement ®** : De micro à 

micro pour échanger programmes, écrans, 

graphiques ou textes. 

Praxitèle : 

Un logiciel graphique couleur pour éditer 

de superbes écrans aux normes Télétel. 

+ Téléchargement est une marque déposée EMB. | FRANCE IMAGE LOGICIEL 


* Prix public maximum conseillé 
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Pour obtenir des renseignements be 
À O 
complémentaires sur la Mallette i 


Communication, retournez ce bon à: 

FIL - Tour Gallieni 1! - 36, avenue Gallieni, 
93175 Bagnolet Cedex. 

Nom 


Fonction 


Adresse 





Société 
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Notre couverture 


| Deux jeux de bon cru à déguster 
dans ce numéro. Les Passagers 
du Vent - 1 est un logiciel qui a 
marqué la fin de l'année 1986. 
Voici la seconde époque, plus 
riche encore. 

Robinson Crusoé, enfin adapté 
au micro, vous fera vivre les 
péripéties des héros de Daniel 
Defoe comme si vous aviez subi 
ou conçu le naufrage (joueur ou 
scénariste). 

Ce numéro est riche de 
programmes que vous appréciez 
de plus en plus. Les genres 
représentés dans édition 
sont : graphique, utilitaire, 
éducatif, musique, jeux. 
L'Extramoniteur vous montrera 
les sentiers empruntés par 

les tortues, tandis que Cortex 
vous initiera aux permutations 
en As 

Jetez enfin un coup d'oeil à 
l'actualité éducative sur PC. 
Jacques ELTABET 
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Logifil/Nasa 


Fil et Micromania ont constitué, avec la 
participation d'US Gold et d'Ocean/Image, 
une nouvelle société de distribution 
spécialisée en ‘gestion de linéaires”: 
Logifil. 

Logifil vient de signer son premier contrat 
avec G.I. Distribution pour gérer les 
rayons logiciels des 94 points de ventes 
portant l'enseigne NASA. 

Logifil exercera ses responsabilités de 
distributeur, à savoir: sélection des 
produits, mise en place, appui 
promotionnel, optimisation de la rotation 
et reprise éventuelle des invendus. Nasa 
exercera ses responsabilités d'enseigne à 
succursales multiples, à savoir: gestion et 
animation des points de vente, gestion et 
formation des vendeurs, création d'un 
environnement commercial favorable et 
d'une dynamique de marque et 
optimisation du service client. 

Logifil n'est pas réservé aux seuls 
fondateurs. Tout éditeur, sous réserve 
qu'il souscrive aux mêmes conditions que 
les fondateurs et qu'il dispose de produits 
adaptés à ce type de distribution, est 
potentiellement bénéficiaire de ce 
nouveau vecteur de vente. 

Le mois dernier, c'était la création de 
Cable, une société de distribution à 
l'échelle européenne, créée sous 
l'impulsion de FIl avec Infogrames, Cobra 
Soft, Ere Informatique, Free Game Blot, 
Microprose et Softhawk. Voici donc les 
nouveaux arrivants. 


Micromania 

Le Club Micromania a été créé au début 
de l'année 1983. L'idée était de former un 
club de vente par correspondance de jeux 
vidéo puis de logiciels pour micro- 
ordinateurs afin d'offrir une sélection des 
meilleurs titres à des prix compétitifs. Le 
succès de cette formule fut rapide. En 
1986, Micromania ayant l'opportunité de 
reprendre la concession de la vente de 
logiciels dans le magasin du Printemps- 
Haussmann à Paris, ouvre sa première 
boutique avec une approche nouvelle : 
vente en libre service des logiciels et 
rapidité d'approvisionnement des 
nouveaux produits. 


Ocean 

La marque Ocean, créée en 1983, est 
certainement la plus connue sur la 
marché anglais. En éditant les best-sellers 
tels que Daly Thomson Decathlon et, plus 
récemment, Rambo, Top Gun, Batman et 
Cobra, Ocean suit une politique de 
création interne de logiciels en s'appuyant 
sur des thèmes de film ou des 
personnages connus. 

Ocean a racheté la marque Imagine sous 
laquelle elle publie essentiellement les 
conversions pour micro-ordinateurs des 
jeux d'arcade japonais (Konami, Taito, 
etc.). 

Le groupe Ocean-Imagine est le second 
éditeur européen après U.S. Gold. 


U.S. GOLD 


Cette société, créée en 1984 entre 


4 





Centrosoft, distributeur anglais qui 
importait du logiciel des Etats-Unis et 
Ocean, éditeur anglais, avait pour vocation 
de publier en Europe les logiciels des 
sociétés d'éditeurs américains en tenant 
compte des particularités du marché. 

La première expérience avec les logiciels 
Beach-Head, Raid over Moscow de Access, 
a rapidement été un grand succès et U.S. 
Gold est ainsi devenu le représentant 
européen des plus grandes sociétés 
d'éditions américaines: Epyx, Microprose, 
Datasoft, etc. 

En 1985, US. Gold s'est implanté dans les 
principaux pays européens en créant des 
filiales en France avec Micromania, en 
Allemagne avec Rushware, en Italie et en 
Espagne. U.S. Gold est le premier éditeur 
européen de jeux grand public. 


Nasa Electronique 

GL distribution est la société qui a repris 
l'enseigne Nasa Electronique à la suite 
des ennuis dont tout le monde a entendu 
parler. C'est une filiale commune de 
Levitan (80,1 %) et Granada (19,9%). 
Une option prévoit pour Granada la 
possibilité à tout moment de porter sa 
participation jusqu'à 50% . 


Levitan 

Société fondée au début du siècle par 
Wolf Levitan, rachetée en 1984 par 
Gilbert Wahnich et Michel Carite. La 
société Kuon est reprise par Levitan en 


Magnum 
Un joystick qui tient 
dans la main 


Un bâton de joie, comme disait un défunt 
collégue, qui tient dans la main comme 
une crosse de révolver. Plus besoin de 
débarrasser la table pour obtenir une 
place libre, d'autant plus que le câble est 
très long. 

Le bâton proprement dit est sur le dessus 
et le bouton de tir, contrairement à toute 
attente, est au niveau du pouce et non 
pas à celui de la gachette. Cela peut 
occasionner des crampes avant de 
prendre l'habitude de jouer avec le pouce. 
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François Robineau, 
Président directeur 


Logiciel, présidait la 
conférence de presse 
Logifil du 28 avri 

à l'hôtel de Crilon. 


1985. Chiffre d'affaires : 1 milliard de 
francs. 


Granada 

Ce groupe britannique a été fondé en 
1934 par Sydney Bernstein. Il possède 
une dimension internationnale, 
notamment avec plusieurs réseaux de 
distributions de produits bruns (radios, 
télés, hifi...) à travers l'Europe et 
l'Amérique du Nord. Il a également de 
nombreux intérêts dans l'audiovisuel : il 
possède en Angleterre la chaîne régionale 
de télévision ITV et produit des émissions 
et des films pour la télévision. 

En France, ce groupe est présent depuis 
le début des années 70 au travers de son 
activité de loueur de télévision et de 
vidéo. Il a pris une participation de 3% 
dans Canal+. Chiffre d'affaires 1986 : 8 
milliards de francs. P.-DG : Edward 
Andrews. 


Nasa 

Distributeur de produits bruns depuis 
1981, Nasa se lance dans la micro- 
informatique dès 1982. C'est la première 
enseigne se spécialiser dans ces deux 
lignes de produits uniquement. 
Aujourd'hui, Nasa c'est : 93 magasins, 
plus 2 qui doivent ouvrir dans l'année ( à 
Mulhouse et Toulouse), 900 salariés et 6 
dépôts régionaux (Paris, Lyon, Marseille, 
Toulouse, Tours et Strasbourg). 





Mais on s'y fait à l'usure... 

Un deuxième bouton et le tir automatique 
seraient les bienvenus. Les contacts sont 
précis et solides. Que demander de plus 
pour. un tel prix ? 

En vente chez Ordividuel, 145 F 


général de France Image 


JPEcran/JPWin 
version 2.12 


JPEcran/JPWin est un ensemble logiciel 
destiné aux utilisateurs de QuickBasic 
Compiler de Microsoft. Il comprend un 
générateur d'écrans de saisie et de 
menus avec son éditeur d'écran pleine 
page et une extension aux librairies du 
compilateur offrant des routines de saisie 
contrôlée, tri de tableaux, tracé de 
courbes, gestion du clavier, analyse de la 
configuration, affichage en modes page et 
fenêtre, répertoire en fenêtre avec 
sélection de fichier, calculatrice, etc. 

Ce logiciel bénéficie d'un service 
d'assistance et de mises à jour. 

JPEcran (version ecrans) : 990 F ; JPEcran 
(version menus) : 990 F : JPEcran (écran 
+ menus) : 1 650 F ; JPWin (option 
fenêtres) : 600 F ; JPEcran + JPWin 
(écran + menu + fenêtres) : 2 100F 
Cabinet Casanova-JPEcran, 20, rue 
Charles Lafitte - 92200 Neuilly/Seine. Tél. 
(1) 47.45.29.01. 


Grand Prix 
du Logiciel Etudiant 
1987 


La deuxième édition du Grand Prix du 
Logiciel Etudiant (GPLE 1987) a été 
lancée le 6 avril au Sicob. Ce concours de 
logiciels micro-informatiques à usage 
professionnel est ouvert aux élèves du 
cycle supérieur. L'objet du GPLE est de 
mettre en contact l'industrie du logiciel 
avec la vaste pépinière d'idées que 
constitue le milieu étudiant. 

Le GPLE est organisé par une équipe 
d'étudiants du MBA Institute, grande 
école de management franco-américaine. 
Il'est parrainé par VIF, Bull et Le Monde 
Informatique, et organisé sous le haut 
patronage de l'Association française des 
informaticiens. 

Les candidats peuvent s'inscrire jusqu'au 
27 juin 1987 et envoyer leurs logiciels 
jusqu'au 14 novembre 1987. Ces derniers 
devront tourner sur IBM ou compatibles, 
Apple 11 ou Machintosh, et entrer dans 
une des catégories suivantes : EAO, 
gestion et sciences, utilitaires, 
applications. 

Une équipe de professionnels de la micro- 
informatique appréciera les produits 
reçus. Les trois meilleurs se verront 
remettre des prix : 1°" prix : 20 000 F, 2° 
Prix : 10 000 F, et le 3°, prix spécial de la 
créativité, recevra un micro-ordinateur 
Bull Micral 60 et une imprimante. 

Le GPLE fera en sorte que tous les 
logiciels de qualité soient commercialisés 
ou inscrits au catalogue des plus grandes 
sociétés de logiciels de domaine public 
suivant le désir de l’auteur. 

GPLE-MBA Institute, 38, rue des Blancs- 
Manteaux, 75004 Paris. 


Culture et Micro 


Six institutions — l'Agence de 
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l'informatique, la Bibliothèque publique 
d'information, le Centre national d'Art et 
de Culture Georges Pompidou, le Centre 
de documentation pédagogique, la 
Fondation X 2000, le syndicat national de 
l'Edition (Groupe audiovisuel) — se sont 
réunis pour fonder l'association “Culture 
et Micro-Informatique” sous l'impulsion 
de la BPI. 

La BP), bibliothèque nationale, 
établissement public à caractère 
administratif sous tutelle du ministère de 
la Culture, a pour mission d'expérimenter 
les nouvelles technologies en matière de 
transfert des connaissances. A ce titre, 
elle doit être le site pilote des 
bibliothèques françaises pour inspirer leur 
politique de communication des logiciels. 
Afin de répondre à l'évolution rapide et 
multiforme de la micro-informatique, la 
BPI a proposé d'associer tous les 
organismes publics ou privés impliqués 
dans la recherche micro-informatique, 
qu'il s'agisse des constructeurs, des 
éditeurs, des établissements à vocation 
d'enseignement, etc. 

Cela a donné l'Association “Culture et 
Micro” : un lieu vivant de présentation au 
public des innovations de l'édition et des 
matériels micro-informatiques, un lieu 
d'essai pour leur implantation dans les 
sites publics pour évaluation de leur 
pertinence et de leur fiabilité, un lieu 
d'animation utilisant les ressources de la 
BPI et du Centre Georges Pompidou, un 
lieu de documentation largement 
accessible au public et, enfin, un lieu de 
réflexion sur les nouvelles formes de 
pensée et de connaissances induites par 
la micro-informatique. Les constructeurs 
et éditeurs de logiciels sont appellés à y 
adhérer pour y apporter leurs 
compétences et leurs initiatives. 


Eclore 


Aide à la création 
d'entreprises 


Des étudiants de l'Institut 
d'administration des entreprises de Metz 
créent parallèlement à leurs études, avec 
la participation de Sermo Informatique, et 
sous le parrainage du CESCOM, un logiciel 
d'aide à la création d'entreprise : Eclore 
— Etape à la Création LORraine 
d'Entreprise — est destiné aux créateurs 
d'entreprise, à toute entreprise désirant 
se doter d'un outil de management de 
l'information performant et complet ou à 
tout organisme de formation. 

Eclore se compose de 21 disquettes 
fonctionnant sur compatible PC d'une 
mémoire minimum de 512 Ko. Le logiciel 
contient 5 modules : Juridique, 
Financement et fiscalité, Ressources 
humaines, Administration logistique, 
commerciale, production, et Management, 
plus une disquette contenant les adresses 
utiles. Chaque module est indépendant et 
peut être vendu séparément. 

Sermo Electronique, 7, rue Gaston-Ramon 
- 57052 ZI.Metz Nord. Tél. 87.33.17.84. 
Institut d'administration des entreprises 
de Metz, Université de Metz, BP 211, Ile 
du Saulcy, 57005 Metz Cedex. Tél. 
87.31.02.23, poste 33. 
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Sage informatique 
d'é 


Du 10 au 15 août, le centre informatique | 
X2000 de Valence d'Agen organise un | 
stage pour les jeunes de 12 à 17 ans. 
Deux options au choix : programmation ou 
utilisation de logiciels professionnels. Une 
animation additionnelle est fournie sous 
la forme de radio imprimerie, de vidéo 
informatique, de visite d'une centrale 
nucléaire et enfin de séances de bicross 
et de trial moto. 

Renseignements à Centre X2000, 3, 
avenue de Bordeaux, 82400 Valence 
d'Agen. Tél. : (63).29.09.44. 





Vidéo ensei nement 
par Laservidéo 


Laservidéo conçoit et réalise des 
programmes de formation avec un 
vidéodisque comme ossature. Il s'agit 
d'un Philips 831 ou d'un Pioneer LDV. Un 
TO7-70, un TO8 ou un TOS, pilote le 
vidéodisque qui est pourvu d'une 
interface à cet effet. Parallèlement, une 
interface micro-périphérique implantée à 
l'intérieur du micro-ordinateur Thomson, 
autorise une liaison avec 8 claviers de 
réponse pour un travail de groupe sur le 
même programme. 

La progression pédagogique peut être 
assurée soit en fonction du résultat 
majoritaire du groupe, soit en fonction du 
résultat de chacun des participants. 
Laservidéo possède une équipe de 
spécialistes de la communication 
interactive qui travaille en collaboration 
avec des informaticiens et des 
électroniciens pour concevoir et réaliser 
ces programmes de formation. 
Laservidéo, 111, rue Cardinet, 75017 
Paris. Tél. : (1) 47.54.06.67. 


Un logiciel de CM 
qui pilote un 
magnéfoscope 


MD Consultants a réalisé un logiciel de 
questionnaire à choix multiples utilisant 
un micro-ordinateur Thomson et un 
magnétoscope VHS. Les questions- 
réponses sont associées à une séquence 
vidéo. Seize élèves peuvent travailler 
simultanément sur le même programme. 
Une interface spécifique contrôle la 
recherche de séquence, l'arrêt sur image, 
l'avance rapide, etc. 

Le micro-ordinateur analyse chaque 
réponse. Après chaque question, on peut 
revoir la séquence vidéo ou visualiser la 
bonne réponse. Les résultats sont 
affichés en fin de séance sous forme de 
notes et d'un diagramme. 

MD Consultants, 30, rue Saint-Marc, 
75002 Paris. Tél. : (1) 47.03.92. 14. 
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Imprimante 
couleurs 
avec kit de recopie 


Sur la base d'une Okimate 20, Power 
Product France propose le Power Okikit 
pour la gamme TO (7/70, 8, 9 et 9x). Le 


kit comprend l'interface et une disquette. 


L'interface parallèle est modifiée pour les 
Thomson. Elle se présente sous la forme 
d'un module encliquable. Il est nécessaire 
d'avoir au moins une unité de disquette 
et une sortie parallèle. L'Okimate 20, 
distribuée par Métrologie (1) 47 90 62 
40, est capable d'imprimer sur du papier 
ordinaire avec un ruban noir, sur du 
papier glacé et sur du mylar (pour 


DIDAO fête 
son 5° anniversaire 


DIDAO ouvre son service d'enseignement 
à distance sur le réseau télétel 3 (3615). 
400 heures de cours de mathématiques 
et de français, du primaire au secondaire, 
ainsi que 30 heures de cours de Basic 
sont accessibles à tous sans souscrire 





Didao vu dans Story Board de Michel Jaffrenou d'après Jim Tracking (Diffusion Canal +) 





transparents type rétro-projections) en 
couleurs, et sur papier thermique sans 
ruban. L'Okimate ainsi modifiée est 
capable d'imprimer en huit couleurs (et 
non les 16 possibles). Il est néanmoins 
possible, à l'aide de tramés, de créer 
d'autres couleurs, avec Colorpaint 
notamment. 

L'Okimate imprime en 5, 6, 8.5, 10, 12 et 
17.1 caractères au pouce (les trois 
premières densités étant la double 
largeur des trois dernières), en 6 ou 8 
lignes au pouce. Qualité normale, courrier, 
double largeur, italique, gras, souligné et 
indice. 

Vitesse d'impression 80 cps et 40 cps en 
qualité courrier. Durée de vie des rubans: 
75 pages pour le ruban noir et 10 écrans 
pour le ruban couleurs. 

Power Product France : (16) 44.83.48.48, 
disponible entre autre chez Ordividuel. 


d'abonnement, mais à 77 centimes les 45 
secondes, soit 61,60 F de l'heure. 

DIDAO : (1) 45.44.39.21 et 3615, code 
DIDA. 


Des housses 
pour vos micros 


Elles se mettent en place sans 
débrancher le courant ou les interfaces. 
Votre unité centrale, vos lecteurs de 
disquettes et le clavier auront un couvre- 
chef ad hoc. Elles existent pour MOS5, 
MO6, TO7, TOB et TOS. De 80 à 120F. 
Ordividuel, (1) 43.28.22.06 





L'onduleur 
Microlab 250 
DE CMS 


Un onduleur, pour parler simplement, est 
un appareil qui sert de relais au secteur 
lors de pannes ou de coupures 
d'électricité. Plus rien à craindre ainsi des 
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coupures micros ou non de l'EDF, société 
bien aimée à la pointe de la technologie. 
Le Microlab 250 se branche directement 
sur le secteur grâce à un cordon 
américain livré avec. Il suffit simplement 
de brancher le micro-ordinateur au dos de 
l'onduleur et d'allumer celui-ci. Après 
cette manipulation, tout se passe 
exactement comme d'habitude. Si une 
panne de secteur survient, l'onduleur le 
signale en déclenchant un bip sonore 
toutes les cinq secondes environ jusqu'à 
ce que l'interrupteur prévu à cet effet 
soit pressé. Le travail peut alors 
reprendre son cours normal pendant une 
période pouvant varier de dix minutes à 
une heure, suivant le matériel utilisé et la 
quantité d'énergie accumulée par 
l'onduleur avant la coupure. Quand cette 
énergie commence à faiblir et qu'il vous 
reste seulement soixante secondes 
d'autonomie, l'onduleur le signale par un 
bip continu. Ce temps de réserve suffit 
amplement pour sauver avant l'ultime et 
fatale coupure. 

Trois prises de courant femelles situées 
au dos du carter autorisent le 
branchement simultané de trois appareils 
différents, à condition que leurs 
puissances cumulées ne dépassent pas 
250 watts (pour information, une 
télévision consomme entre 60 et 70 
watts à l'heure). Ceci permet de brancher 
en même temps le micro, une imprimante 
et une lampe de bureau, par exemple. 

Un seul défaut vient ternir l'image de 
marque de ce matériel. Imaginons que 
tout se soit bien passé: la panne de 
courant est bien survenue, mais on ne 
s'est pas laissé avoir: l'onduleur a pris le 
relais, et on a eu le temps de sauver le 
travail en cours et d'éteindre l'ordinateur 
avant d'aller appeler l'EDF et crier son 
indignation devant de telles pratiques 
anti-informatiques. Mais l'EDF ignore les 
remontrances, et la panne s'éternise. 
Allons-nous rester des jours entiers sans 
allumer l'ordinateur’? Que nennil! 
L'onduleur servira de batterie, voilà tout. 
Eh bien non, l'onduleur ne servira pas de 
batterie: pour fonctionner, il faut 





ABSOLUMENT qu'il soit alimenté et 
qu'une source externe d'énergie alimente 
ses relais de démarrage avant la coupure 
de courant. Ainsi, même si votre onduleur 
est encore bourré d'énergie, il faudra 
attendre que le courant revienne pour 
que vos yeux se détruisent de nouveaux à 
la lueur de votre moniteur préféré. 

Quoi qu'il en soit, voilà un bon matériel, 
qui rendra de grands services à ceux qui 
veulent se désolidariser des intempéries 
EDFiennes. 

Denis Jarril & Stephane Schreiber. 


Minitel, outil mobile 
de communication 


Le service Télémessage du minitel cumule 
les fonctions de télex, de bloc-notes 


électronique et de télégraphiste. Avec 
votre micro, équipé du câble Téléteo ou 
du modem interne ou externe, grâce à 
une clé confidentielle, vous serez 
instantanément relié au réseau Telex 
mondial tant en émission qu'en réception 
avec l'abonnement spécial Telex. 

Un abonnement supplémentaire est 
nécessaire pour profiter du service 
Messagerie avec lequel vous pourrez, de 
votre domicile ou de partout ailleurs, 
consulter les messages tombés sur votre 
“bureau”. Ce service marche aussi en 
Mailing pour prévenir simultanément 
plusieurs intéressés. Renseignements 
dans les téléboutiques. 


Le Challenge 
Ademir 
Avranches vainqueur 


C'est la seconde année que la Fédération 
Ademir lance un concours “Challenge” 
pour ses 90 clubs et affiliés (4 000 
adhérents). 

Les épreuves ont été inventées par le club 


TELEMATIQUE 


suivante, c'est donc le club Ademir 
d'Avranches qui organisera les épreuves 
de l'année prochaine puisqu'il a remporté 
le premier prix du Challenge 87” : un 
micro ordinateur Goupil G4 et la médaille 
d'or des clubs Ademir. 

Pour en arriver là, le cub d'Avranches a dû 
affronter une vingtaine d'épreuves allant 
du programme Forth, Basic ou Logo, du 
sujet imposé, aux questions à découvrir 
sur le serveur Ademir, en passant par un 
“programme de bêtise naturelle”. La 
philosophie du club nantais présuppose 
qu'un ordinateur n'est jamais qu'un 
amplificateur d'idées. Le coefficient 
d'amplification peut éventuellement être 
inférieur à 1, on parle alors d'atténuateur. 
Les épreuves, d'un bon niveau, 
demandent astuce, réflexion ou/et 
connaissances. Elles sont de plus 
assaisonnées d'humour, ce qui ne gâte 
rien. 

Les prix ont été remis par Joël de Rosnay, 
conseiller auprès de Maurice Lévy, 
président de la Cité des sciences et de 
l'industrie, le vendredi 15 mai. 

— 1% Prix, club Ademir d'Avranches. 
Président : Emile François, professeur de 
musique. Gagne un Goupil G4 offert par la 
société SMT/goupil. 


Ademir de Nantes, vainqueur du 
“Challenge 86”. Le gagnant de chaque 
année ayant la charge, et le plaisir, 
d'organiser les épreuves de l'année 


— 2% Prix, club Ademir de Beauvais, Ecole 
Normale. Président : M. Garcia, professeur 
de philosophie. Gagne un micro-ordinateur 
TO8 offert par la société 


Combinez les avantages de la télémessagerie et 
du telex par MINITEL 





251, bd Raspail, 75014 Paris. M° Raspail. Tél : 43.21.54.45 
50, rue de Richelieu, 75001 Paris. Tél : 42.96.93.95 
Métro Palais-Royal. Du lundi au samedi de 9h30 à 19h. 


DE L’INITIATION AU PROFESSIONNEL ! 


1590F 
2490F 
160F 
2 990 F 


l'espace le plus 
micro de Paris ! 


: Cassette 
Disquette 
Cartouche 


Prix spéciaux 
collectivtés-écoles 


185F 
LL LTAL EE à 


CA'TIETUITX (0) 
CRUACE TAC RATE (o710)) 


Tuner TV 

Digitalisation 

Extension manette 

Imp. couleur Okimate 20 


PROMOTIONS 
PERSONNELLES 
ET PROFESSIONNELLES 


EDUCATIFS 

LYUITLETI #0) 

Cube Basic (4C) 

Dictée Electronique (C) 
Logo (K) 

LT LOC 071 »)] 

CUT ET CET EC e770)] 
Point Bac Math 2 (C/D) 
Point Bac Math 3 (C/D) 
Point Bac Français (C/D) 


LCR 
195 F 
160F 
790 F 
299 F 
249/390 F 
PLCIK CES 
249/390 F 
249/390 F 


JEUX 
CR \IETORST OT A (o710)) 
e Airbus (K) 
CE: LL 209) 
Cher TU CETTE () 
TT Te US CR ICT TE CT OA (0710) 
Extension M05 + Arkanoïde (C/D) 
Extension incrustation CRT TR (SE (0710) 
Ext. 16 KO TO7 CRE TER (e71»)] 
Ext. 64 KO TO7 CR, CTIET CEA (071) 
Ext. 256 KO TO8 CRC CRE UE (071 »)] 
L1 
L2 
L1 


195/249 F 
295 F 

390 F 

390 F 
LVL ESS 

LL CRZAEES 2 
LL CAL TES 
195/249 F 
160/220 F 


UTILITAIRES 
160/220 F CRC CT CT (0710) 
175/225 F + Colorcalc + (D) 
249/295 F e Colorpaint (K) 
245/295 F e Comptabilité (D) 
299 F e Muitiplan TO8 

. 

L] 


390/490 F 
Souris LL) A Ue71))] 
Contrôleur communication Le ER ET CET UAN (071 »)] 
Coffret TELETEL LET-LS SUN (074 » }) 

Lecteur disk 320 KO 5 .. CRE TEET COR TETE (071) 
Lecteur disk 320 TO9 CRE 1012 EX (e71»)] 

Lecteur disk 640 TO 3 CRE UCE (071) 

Moniteur monoch. e Sorcery (C/D) 

Moniteur couleur Haute résolution CRT UICT: COR (071 »)] 
Imprimante courrier 80 colonnes e Super tennis (C) 
imprimante CITIZEN 120D CA ELU LCR (0710) 


590 F 
990 F 
CL'AaS 
690 F 
690 F 


139/220 F Malette communication 

195/245 F LE TETE TUE (0) 

160/195 F CR T'CX (0) 

195/249 F + Porte-feuille boursier (D) 
195F e Studio + colorpaint (K) 

195/249 F e Super Business T09 (D) 


BON DE COMMANDE à adresser à VIDEOSHOP, B.P. 105 - 75749 PARIS Cedex 15 


Je regle par Désignation des articles demandés 


+ 
O NOM 
O C Bancaire D CCP 


© PRENOM 
ADRESSE 
VILLE 
SCODE POSTAL 











DEMANDE DE DOCUMENTATION 





Je possède un micro de type 





- — — -———— —- Frais de port pars 
Je joins 3 timbres à 2,20 F pour frais d'envoi TOTAL TTG ose 








TELEMATIQUE 










COFADEL/Thomson. scolaires et sont animés par des cotisations adhérents identiques. Les 

— 3° prix, club Ademir Nay (64). enseignants bénévoles. clubs Ademir, enseignats éléves peuvent 
Président M. Trillou, professeur de La fédération Ademir (Association pour le ainsi rencontrer d'autres secteurs 
mathématiques Gagne une valise de Développement dans l'Enseignement de professionnels, et cela va dans le sens de 
logiciels éducatifs offerts par la société la Micro-Informatique et des Réseaux) est l'ouverture de l'ecole sur l'extérieur. La 
FIL (France Image Logiciel). affiliée a la fédération des club Microtel, fédération Ademir est aussi agréée 

— 4° Prix, club Ademir de Vaulx-en-Velin. c'est à dire qu'elle agit selon les mêmes “Jeunesse et sports” et agréée par 
Président : Y. Janin, directeur d'école principes d'ouverture, de motivation des l'éducation Nationnale, au titre de ses 
primaire. Reçoit une valise de logiciels équipes d'animation des clubs, avec des actions éducatives et périscolaires. 
éducatifs offerte par les éditions 

CEDIC/VIFI S0S INFORMATIQUE s… 


— 5 prix, club Adermir Commercy. 
Président : M. Laroque, professeur de 


français. Gagne une valise de logiciels À 3 GUIIDE NL SERVICE 

éducatifs offerte par les éditions 

— 6° Prix, club Ademir Sainte- GUESTIONS DE Li SEMAINE ss. 
Austreberthe (76). Président : G. Bornon, 

directeur d'école primaire. Une valise de cs mn & 
logiciels éducatifs offerte par les éditions Le THOMSON E AUTRES 
Hatier. —: ur | 

— 7° Prix, club Microtel, section Ademir S SMTL- GOUREE x 

Paris/Les Lilas. Il gagne, comme le veut la —] 9 —: 

tradition, la spécialité gastronomique de 4 BULL-MICRAL 16 

la ville du club organisateur, soit une es | ARCS à + 

caisse de 15 Kg de ‘Petit Beurres LU”. = LOGABAX 1 1 

Pour rappel: les clubs Microtel sont des …] £ é 1 

clubs ouverts à tout public, à partir de 15 e LEANORTD 1= 

ans. Ils peuvent ouvrir une section Ademir — ë FOR EE JS 

spécifique pour encadrer les activités des s MET AVI DEUTEX 15 

plus jeunes. Les clubs Ademir sont des VOTRE CHOIX: 1 FTP RE ENVOI | 


clubs implantés dans les établissements 
SO 


= om LULU dun mn À. = = . 212 . 
- - - Sommaire Général - Elektor - - - Service félémaique 
{- ELEKTOR ACTUALITES: sommaire des 6€ pour électronicien 
derniers mois —- avant première — créatif 
cOmnÉmauss te MERS TE 
= ÊES ES : : our rouver : AN PRE 
Es l'article du’il vous faut dans Le 15 avril, le service télématique 
une ancienne parution. d'Elektor, ‘le magazine de l'électronicien 
2_ PETITES ANNONCES: CRAtUITeSs! créatif, a été ouvert au public (3615 
> Classées par Offres et Recherches. code ELEKTOR). 
Ce service est hébergé par GOTO 
d- FORUM DES, INCIDENTS ET ACCIDENTS: aus A Ta Si Doc 
a Eve mon Eees LE LS EE taikust Questions 1 ; À : 
techniques entre lecteurs. serveur Hostel. Vous pourrez y découvrir 
cm. ABONNEMENTS ET TARIFS: Les services les actualités du journal, la table des 
JT abonnements —- 3 mois à l'essai. matières des derniers numéros, le service 
: is cs js ou More ee des petites annonces gratuites, une 
bas Ne DES REVENDEURS DE COMPOSANTS: messagerie complète et le service des 
Où trouver vos composants ? 
abonnements. 
+_ MESSAGERIES ET DIALOGUES: Elektor Très prochainement, un Forum des 
Var vaus invite à 14 convivialité. accidents et incidents et le service des 
Taper le no.cho1is 1 puis ENVOI annonceurs d'Elektor suivront. 





CENEX 


La centrale nationale 


des excédents RUN Mo 
ERP CTE DS Er 


Mettre en rapports sogétés qu'ont EG NS 0 OL OT 6 OT 1 © N | 
des stocks excédentaires avec celles qui 

ont des besoins, c'est l'idée qui a incité la OFFRES DEMANDES 
INFORMATIONS 


a 
PAR ARTICLES 


Centrale nationale des excédents à créer 
un service télématique: 3615 CENEX. 
Les abonnés peuvent rentrer leurs 
excédents dans la banque de données 
grâce à son numéro de code confidentiel. 
La consultation peut s'effectuer à partir 
de n'importe quel minitel et est accessible 
sans abonnement ou code d'accès. Cenex 
propose de plus une sélection des offres 
de services ou prestations diverses en 
offre et demande, répertoriées par 
département et classe d'activité. 
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TEO N°44 - MAI 1987 


22, rue de Montreuil 94300 VINCENNES -— Tél. : (1) 43.28.22.06 
OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 h et de 15 h à 19 h, LE SAMEDI de 10 h 30 à 19h 


REVENDEUR OFFICIEL THOMSON 


L'IMPRIMANTE PERSONNELLE 
COULEUR “OKIMATE 20" T09 "+" + moniteur monocrome + imprimante 
L'OKIMATE 20 est la première imprimante per- ; ss 
sonnelle dans sa gamme de prix à offrir une 
véritable impression couleur. Une tête d'impres- 
sion à 24 éléments crée plus de 1 00 nuances d'une 


æ 
définition et d'une netteté exceptionnelles. < 
Livré avec logiciel d'exploitation pour TO8, TO9 = 























TO8 + monit. coul. + lect. disq, 
TO8 + monit. monoc. + lect. disq. 
T08 + lect.disq.+ raccord T.V. 
ext. 16K (TO7) ......... 
ext. 256K (TO8)..…. e ES 
ext. 64K (T07-70)................ 

magnétophone M05 ..….. 


































































































ou TO9" +" à Cette interface vous permet de laisser brancher en per- C] mangétophone T7-8-9 ... 
| okimate 20 spéciale thomson... 3490F manence trois appareils utilisant la prise péritel. câble imprimante M6-T8-9-9"+" ......... 170F 
interface multipéri 750F €] câble imprimante M5-T7 ................... 170F 


INTERFACE ns 














































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































à l'unit 
ee ke ] joystick magnum 149F 
[] à l'unité . 31F “I ne lui manque que la parole”, synthé. VOCI la lui donne ! 
par 10 .280F Très performant ce synthétiseur vocal va vous permettre 
Cassettes vierges C20 de rendre votre ordinateur plus bavard qu'un politicien en 
O pars …. 45F campagne! : 
part em OUR à ot ot mir NS à so 
logiciels 
K7:cassette D7 disquette M cartouche QD disquette ODD M5 M05 - M6-M05 - T7. T07 70 - T8 TO8 T9-T0O9 - T9 + T09 + 
Clair attack M5-6/T7 K7 199F HMS. cobra ......... T8-9-9 + D7 299F meurtre à gde vitesse . T8-9-9 + D7 199F LT CPR NOR M5 K7 120F 
Uairattack . «T0 D7 240F HMS.cobra . . M5-6/77-8-9-9+K7 299F  Clmeurtresurl'atlanti. .. T7 07 265F  Utoutschuss .… M5-6 K7  150F 
Clairattack .… .… T8-9 D7 220F hacker .... .… M5-6/77-8-9+K7  160F Cneurtre sur l'atlanti. .. MO5 05 265F  Utoutschuss .… T7-8-9-9+  K7 150F 
airbus M5 M5 295F hacker ..….. … T8-9-9 + D7 240F meurtre sur l'atlanti. .. T8-9-9 + D7 199F tout schuss .… T8-9-9+ D7 205F 
[og ("| 0 TARN TO7/T07-70 K7 950F pul.+yeti+elim. .... M5-6/T7-8-9-9+K7  160F Clmeurtres en série ..... M6 K7: 299F vampire ....... .… M5-6/T7-8-9-9+K7  150F 
Clanglais vol. 1 A7 .... M5/77 K7 975F pul.+ yeti+elim. .…. T8-9-9 + D7 199F meurtresensérie .... TB-9-9 + D7 290F vampire ............ T8-9-9 + D7 250F 
arkanoïd ............ M5-6/77-8-9 K7 155F jeu de damesamé. .... M5-6/T7-8-9-9+K7  150F meurtres sur l'atlanti. .. T7-8-9-9+  K7  260F vie mort dinosaures ... M5-6 K7  150F 
Clarkanoïd .. 18-9-9+ D7 205F Cljeu de damesamé. .... T8-9-9 + D7 205F meutres sur l'atlanti. .. M5-6 K7 260F vie mort dinosaures ... T8-9 + K7 150F 
| Cassembleur 17 M7 405F Cjkaraté .. M5-6/77-8-9-9+K7 145F  Clmicroscrabble ...... M5-6/T7-8-9-9+K7  205F vie mort dinosaures ... T8-9-9 + D7 180F 
| | Classembleur . M5 M5 405F  Clkaraté .. .… M05/T07-70 QD 250F  Clmicroscrabble . . T8-9-9 + D7 255F [vision M5 K7  120F 
||  Cassembleur .......... M6 M  515F karaté ..... .… T8-9-9+ D7 199F miner2049 . M5-6 M5 150F Cavolsolo ..... M5-6/T7-8-9-9+K7  150F 
|, Cassembleur .… T8-9-9 + M  515F l'affaire sydney ....... M5-6/17-8-9-9+K7  145F mission en rafale ..... T8-9-9 + D7 205F  [Ulvolsolo ...…. M5-6/T7-8 K7 150F 
|: Cavenger .… M5-6/T7-8-9-9+K7  150F l'affaire sydney ...... T8-9-9 + D7 199F mission très spéciale .. M5-6/T7-8-9-9+ K7 150F wWargame .... M5-6/77-8-9 K7 150F 
|  Cavenger. .. T8-9-9 + D7 205F l'affaire veracruz .... M5-6/T7-8-9-9+K7  145F mission très spéciale .. T8-9-9 + D7 220F wWargame ... M5-6/T7-8 QD 240F 
Cbactron .… M6/T8 K7 140F l'affaire veracruz .... T8-9-9 + D7 245F missiontrès spéciale .. M5-6 D7 240F wargame .... T8-9-9 + D7 220F 
Cbarry boxing .… .… T8-9-9+ K7 220F l'aigle d'or .......... M5-6/77-8-9+K7 180F missiontrès spéciale .. M5-6/T7-8 QD 240F X-ray … M5-6/T7-8K7 150F 
|: | Cbarryboxing ......... M5-6/17-8-9+K7  140F l'aigle d'or ........... T8-9-9+ D7 240F  Cmissionenrafale ..... M5-6/17-8-9-9+K7  150F X-ray .….... M6/T8-9-9+ D7 220F 
basic 128 . 5 ET M7 515F évadé detapiocatraz .. M5/T7 K7 165F multiplan . T8 D7 725F yie arkungfu ll ..... M5-6/T7-8-9-9+K7  150F 
Cbeach head . M5-6/T7-8 QD 250F l'héritage 2 .......... M5-6/T7-8-9-9+K7 150F  Cloceania . M5/77 K7 195F yiearkungfull ...... T8-9-9+ D7 205F 
Oblitz ...... .… 17-8-9-9 + M7 255F la cité de cristal ...... M5 K7 150F Clocesnis :.......:...3 T9 D7 240F une affaireenor ...... M5-T7 K7 145F 
Oblitz .… M5-6 M5 255F la cuisine française ... M5/T7 K7 150F pack monop + runw + vin sur vin ..... ….. M5-T7 K7 265F 
blitz .... .… T8-9-9+ D7 240F la cuisine française ... T9 D7 210F sup.ten+ green ..... T8-9-9 + D7 315F Ccolorpack ........... M5-T7 K7 175F 
blue war .… M5-6/T7-8-9-9+K7  165F la dictée électronique .. M5-6/T7-8-9 K7 155F Clpack monop + runw + meloptica … M5-T7 K7 145F 
Obluewar .. .. T8-9-9 + D7 230F la fourmi ............ K7 100F sup. ten + green ...... M5-6/T7-8-9-9+K7 255F dialog. sauterelle . M5-T7 K7 100F 
[budget familial .. M5-T7 K7 140F la geste d'artillac ..... T7-8-9-9 + K7 270F paragraphe 23:18 D7 415F calculatrice ... M5 M 195F 
(LT INR es T7-8-9-9 + M7 315F [la geste d'artillac ..... M5-6 K7 270F paye (fil) .. . T8-9-9 + D7 840F trap . M5 M 195F 
Eraractorz Li M5-6 M5 315F  Cllagested'artillac ...….. T8-9-9 + D7 299F planning . . T8-9-9 + D7 395F |: l'ENS Be M 195F 
Dcarte ciel + sup.tennis  T8-9-9 + D7 255F la mine aux diamants .. M5-6/T7-8-9 K7 150F portefeuille b . T8-9-9 + D7 935F carnet adresses ... M5 M 275F 
Cchoplifter ........... T7-8-9-9 + M7 205F la mine aux diamants .. T8-9-9 + D7 199F portefeuille boursier . . . M5-6 M5 405F tyrann ........ … M5 K7 185F 
Ochoplifter . … M5-6 M5 205F la nuit destempliers ... M5-6/77-8-9 K7 150F praxitele ....:...:.:. T7-8-9-9 + M7 520F Dtic-tac ...... … M5 K7 120F 
Ccoliseum .. .… M5-6/77-8-9+K7  140F le 5ème axe ......... TOg D7 240F prolog .… M5- M5 735F intoxetzoe ........... M5 K7 140F 
coliseum ... T9-9+ D7 240F Ole 5ème axe . . M5-6/77-8-9+K7  180F prolog M7 735F vision ......... … M5 K7 120F 
Ocolorcalc .. .… 17-8-9-9 + M7 315F  Clecorpshumain M5-6/T7-8-9 K7 160F raid dur la manche .... T8-9-9 + D7 160F Cljeux maître jacques … M5 K7 100F 
Ocolorcalc .… M5-6 M5 315F  Clletempledequauhtli .. M5-6/T7-8-9-9+K7  180F Créussites ........... T8-9-9 + D7 205F CR us ci dues K7 100F 
Ocolorcalc + ue 18-90 D7 415F  Clletemple de quauhtli .. T9 D7 220F réussites .. M6 K7 150F votre auto ... 4 K7 95F 
Ccolorpaint .… 17-8-9-9 + M7 415F les dieux de la glisse ... M6 K7 150F  Crodéo ...…. … M5/T7 K7 180F sortilèges ..... QD 245F 
Dcolorpaint .… M5/M6 M  415F les dieux de la glisse ... T8-9-9 + D7 199F Clrodéo ..…. als D7 240F thésaurus ...... D7 220F 
compta. gene. (fil) ...…. T7 D7 520F les dieux de la glisse ... T8 K7 150F runway2 . .… M5-6/77-8-9-9+K7 155F euroSpace ....... D7 275F 
| Dcompta. gene. (fil) .... T8-9-9 + D7 840F les dieux du stade 2 ... M5-6/T8-9-9+K7  170F runway2 . .… T8-9-9+ D7 205F super business . D7 345F 
|  Ccourrier - KT 150F  Cllesdieuxdustade2 ... T8-9-9 + D7 195F runway2 . .… M5-6/T7-8 QD 230F [Hi 1: DST D7 320F 
Ucourrier K7 150F  Clespassagersduvent .. T8-9-9 + D7 299F saphir .. .… M5-6/T7-8-9 K7 150F mandragore K7 265F 
Cdemonia -8-9- D7 220F  Olespassagersduvent .. M6 K7 299F saphir .…. .. T8-9-9 + D7 .199F loritel ......... K7 395F 
Cldossier boerhaave .... T7-8-9-9+ K7 150F les passagers du vent 2. T7-8-9-9 + K7 299F sapiens . M5-6/T7-8-9+K7  180F france-europe ........ D7 295F 
dossier boerhaave .... M5-6 K7 150F les passagers du vent 2. T8-9-9 + D7 299F sapiens . .. T8-9-9+ D7 220F  Clmongénéral .......... D7 230F 
Cdossier boerhaave .... T8-9-9 + D7 199F lissage de courbes .... M5 K7 120F scriptor . .… 17-8-9-9 + M  415F Cspace shuttle simulator T9 D7 280F 
Clenigmatika+5K7 ... M5 K7 245F logo M  995F scriptor . … M5-6 M 415F EU SA T9 D7 240F 
Clentréeen 6ème ...... M5-6/T7-8 K7 240F logo M  995F silent service ....... M6/18-9-9+ K7 150F Cscarfinger ............ T7 K7 199F 
Clentropie ............. M5-6 K7 150F lorann . M5/77 K7 160F Usilent service ....... T8-9-9 + D7 205F [LE TEEN … M5/T7 K7 165F 
Clentropie éseocss 17-8-9-9 + K7 150F loritel . K7 395F Osorcery M5-6/T7-8-9-9+K7 155F carnet de santé ....... M5/T7 K7 95F 
Centropie … .… T8-9-9 + D7 199F loto . T8-9-9 + D7 185F  Csorcery T8-9-9 + D7 199F téléphone (apprentis.).. M5/T7 K7 105F 
EIFBI::...: ….... M5-6/77-9-9+K7  170F loto . M5-6/T7-8-9-9+K7  150F statistiques (fil) ..... T7 D7 205F Cleurospace ............ M5/T7 K7 275F 
facturation (fil) ....... T8-9-9 + D7 840F loto ... M5 5/T7-8 QD 195F statistiques (fil) ..... T8-9-9 + D7 205F feuvert M5/T7 K7 145F 
folonies:.:::......... M5-6 K7 150F  CJMbanque ........... T8-9-9 + D7 345F stocks (fil) .… T8-9-9+ D7 840F  Clpédago.calc.ce2 1 an. M5-6/T7-8 K7 720F 
Dficheset dossiers .. T7 D7 415F M.GT+bactron ..... M6/T8 K7 160F  Clstocks{fil) . .… 18-9-9+ D7 795F pédago. calc. ce2 1 tri.  M5-6/T7-8 K7 240F 
* . Dficheset dossiers ..... T8 D7 415F CIMGT+bactron .... M6/T8 D7 199F studio ..... T7-8-9-9 + M  415F pédago. calc.cm1 1 an. M5-6/T7-8 K7 720F 
| france europe ........ TO9 07: 295F CL .[ AR MERE ES M5-6/T7-8-9 K7 185F super tennis M5-6/T7-8-9-9+K7 150F pédago. calc.cm1 1tri. M5-6/T7-8 K7 240F 
* Cigestionprivée ....... M5-6 M5 405F MAD TT Een M5-6/T7-8-9 D7 245F supertennis ........ M5-6/T7-8 QD 230F pédago. calc.cm?2 1 an. M5-6/T7-8 K7 720F 
| Cigestion privée ....... T7-8-9-9 + M  405F colorcalc + templates . T8-9 + D7 630F LE EME T8-9-9 + D7> 199F pédago. calc.cm2 1 tri. M5-6/T7-8 K7 240F 
? Cgrandprix500cc .... M6/T8 K7 180F  [lmalettecréation ..... T7-8-9-9 + M  630F TNT. M5-6/T7-8-9-9+K7 150F pédago. gram.ce2 1 an. M5-6/T7-8 K7 720F 
Cgrand prix 500 cc .... T8-9-9 + D7 220F malette gestion ...... T8-9-9 + D7 1350F the way ofthe tiger... T8-9-9 + D7 240F pédago. gram.ce2 1tri. M5-6/T7-8 K7 240F 
Cgraphique .......... T07-70 D7 /195F malette prof. ........ TOg D7 630F the way ofthetiger .... M5 K7 185F pédago. gram.cmlitri. M5-6/T7-8 K7 240F 
Cgraphiques .......... T8-9-9 + D7, 205F meurtre à gde vitesse . M5-6/77-8-9-9+K7  150F thewayoftiger ..... T7-8-9-9 + K7 185F pédago.gram.cmilan. M5-6/T7-8 K7 720F 
LIVRES 
Clexercices pour MO5 ..... ï  80F Cmanuel technique T07/70... 125F M05 premier programme its OUT Cprofs assistance M05-T07/70....110F pratique du MO5 100F 
Cexercices pour TO7 ............... 80F initiation au basic T07/70 ...... 18,50F gest. de fichiers MO5-T07/70 .....128F basic des MO05-T07/70........... 95F guide pratique de colorcalc 150F 
basic DOS du MO5-T07/70 .......125F initiation au basic 128 ...….. 125F 56 prog. sur MO5. } 2e TOE 102 progr. M05-T08/T09 ........ 135F guide basic 512 du TO9 T9 185F 
Dforth, manuel de référence 125F initiation au forth ....... . 95F basic + 80 rout. sur MO5-T07/70 .105F la pratique du T07/70 ............100F guide prat. manoreseau 99F + 
= = = 2 — — — = — = — ————— — — — _ — __— — £ 
< Cocher le(s) article(s) désiré(s) ou faites er en une ne liste sur une feuille à à part. - Faites le le total F5 frais d de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 É 60 F pour tout achat supérieur à 1000 F FE 
COMMENT COMMANDER : 80 F pour tout achat supérieur à 2000 F). pe 
Je possède : [] TO7 [1 MO5 [1 TO7-70 TO9 [ MO6 [] TO8 EO°T09"+" Ë 
+ NOM : _____} PRENOM : ‘FELSS 5 
_ 8 
e) ADRESSE : CODEPOSTAL ns MIE ë 
: 2 
rs Mode de paiement : [] chèque mandat [] contre-remboursement (prévoir 20 F de frais) Ë 
envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 5 
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XTree 


Un outil de gestion 
des disques durs 


XTree est un logiciel servant d'interface entre le 
système MS/DOS et l'utilisateur. C'est l'adaptation 
française de l’un des utilitaires les plus vendus aux 
Etats-Unis conçu par la société Executive Systems 
incorporation. Son action est centrée sur les pro- 
blèmes posés par la gestion des disques durs. | 
donne donc une présentation schématique claire de 
l'organisation des fichiers en répertoires et sous- 
répertoires. À partir de cette présentation il permet 
de manipuler les fichiers sans connaissance du 
DOS. Une bonne convivialité en autorise l’utilisa- 
tion par tous les utilisateurs de micro-ordinateurs 
quel que soit leur niveau de connaissances en in- 
formatique. La documentation est presque super- 
flue car toutes les fonctions disponibles sont conti- 
nuellement affichées à l'écran, et une aide en ligne 
permet de savoir les utiliser efficacement. Toute 
erreur de manipulation est rattrapable par simple 
appui sur la touche F3. 

Toutes les commandes classiques du DOS sont ac- 
cessibles. Les fichiers peuvent être visualisés, im- 
primés, supprimés, renommés, déplacés, copiés ou 
encore regroupés. Îl est également possible de ma- 
nipuler les répertoires et sous-répertoires sans 
avoir à entrer dans les subtilités du DOS. C'est un 
outil performant qui oblige l'utilisateur à se concen- 
trer sur l'organisation des connaissances conte- 
nues dans ses fichiers. 

Xtree tourne sur tous les micro-ordinateurs compa- 
tibles PC disposant de plus de 128 Ko de mémoire 
vive et du DOS à partir de la version 2.0. Ilest diffusé 
par la société Edisoft, 11, rue Villaret de Joyeuse, 
75017 Paris, au prix de 790 F ht. 





Orthographe d'usage 
des N.T.I. 


Ce logiciel est essentiellement destiné à la forma- 
tion continue, ce qui explique son aspect un peu 
rigide. Une cinquantaine de modules indépendants, 
répartis par thèmes sur 10 disquettes, abordent la 
plupart des problèmes d'orthographe d'usage. Le 
stagiaire peut les parcourir suivant ses besoins, en 
travaillant à son rythme. Le formateur trouvera dans 
la documentation une image fidèle du logiciel et 
pourra ainsi préparer aisément ses interventions. 
Chacun des modules est construit selon une même 
trame. La règle correspondant au cas étudié est 
clairement énoncée et illustrée, et les exercices 
donnent au stagiaire l'occasion de de l'appliquer. |! 
est à noter que le logiciel demande l’utilisation des 
minuscules accentuées, ce que d'autres produits, 
plus américanisés, oublient souvent. Le droit à l'er- 
reur est autorisé et déclenche en général un mes- 
sage d'aide qui amène l'utilisateur à réfléchir pour 
découvrir l'erreur et la corriger seul. L'analyse de 
réponse reste assez limitée se contentant de quel- 
ques possibles et se réfugiant au-delà dans un mes- 
sage de non compréhension. 

Ce logiciel couvre la plupart des domaines sensi- 
bles en orthographe, comme le montre la liste sui- 
vante : 
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— mots féminins en “oire”, “é”, “té”, “tié”, “u”, “oue”, 


“ail”, “eil”, “euil”, “eur”, “ure” et “ule”; 


— mots masculins en “oir”, “ée”, “é”, “ie”, “ail”, 
“euil”, “eur”, “ure” et “ule” :Verbes en “agg”, 
“app”, “guer”, “quer”, “endre” et “oter”; 

— les signes orthographiques (accents, tréma, trait 
d'union) ; 

— les préfixes “in”, “des”, “en” et “re”, la présence 
d'un “h” au début ou dans un mot, le “m” devant 
“m”, “b” ou “p”; 

— les adjectifs en “ile”, les mots se terminant par 
“au*”, les mots en “ot”, “oc”, “op”,"os” ou “o”et les 
adverbes en “ent”. 


Cette description montre bien l'éventail couvert par 
ce logiciel qui trouvera certainement sa place dans 
de nombreuses formations continuées. Une utilisa- 
tion dans des milieux plus classiquement scolaires 
demanderait un gros travail d'adaptation. Afin de 
pouvoir être utilisé par un public non averti en in- 
formatique, le logiciel est auto-démarrable et cha- 
que disquette contient même le système d'exploita- 
tion MS/DOS pour éviter au stagiaire des manipula- 
tions inutiles. La protection des disquettes contre la 
copie est, par contre, assez maladroite car le public 
visé a besoin, plus que d'autres, d'avoir une copie de 
sauvegarde. 

Cet ensemble de logiciels est diffusé par les "Nou- 
velles Techniques d'Information” (N.T.I.) qui ont 
leur siège au 1, boulevard de la Paix, 51100 Reims. 


eil”, 


Sublime 


Un générateur d'application 
très convivial 


Ce produit est un bon agent de liaison entre les 
professionnels de l'informatique et les utilisateurs 
de ses applications. Les premiers y trouveront un 
ensemble d'outils qui les aideront dans l'écriture et 
la mise au point d'applications de gestion de fi- 
chiers. Les seconds y trouveront enfin la possibilité 
de personnaliser les produits utilisés grâce à la faci- 
lité d'utilisation de Sublime. La principale qualité 
des générateurs d'applications est cette aide au dia- 
logue entre deux catégories d'utilisateurs de l'in- 
formatique qui se comprennent souvent mal. Sur ce 
plan, Sublime remplit son contrat. 


Ce logiciel est l'adaptation française d'un produit 
créé en 1984 par la société “O'Hanlon Computer 
Systems, Inc.”. La version 3.00 que nous avons tes- 
tée est présentée dans un épais boîtier contenant 
les trois disquettes accompagnées d'une documen- 
tation de plus de 500 pages. Celle-ci commence par 
150 pages de travaux pratiques qui offrent une 
bonne auto-formation au produit. Un stage d'une 
journée doit alors suffire pour finir la formation. 
Cette prise en main demande toutefois de n'être pas 
un débutant en informatique car Sublime est conçu, 
en priorité, pour aider des informaticiens dans leur 
travail de développement. 


Sublime contient de nombreux outils pour créer des 
applications de gestion de fichiers. Le premier de 
ces outils est le dictionnaire de données qui permet 
au concepteur de définir l'ensemble des propriétés 
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caractérisant la base de données sur laquelle l'ap- 
plication va être développée. Les limites imposées 
par le système sont suffisamment larges pour que 
ce soient les capacités mémoires (en mémoire de 
masse surtout) qui les imposent. La difficulté est 
alors de bien avoir analysé la situation concrète 
pour bâtir “la” base la mieux adaptée. C'est vraiment 
mettre l'informatique au service de l'utilisateur et 
non l'inverse. |! faut ensuite utiliser le générateur 
d'écrans pour entrer dans l'application l'ensemble 
des pages-écran que le logiciel aura à utiliser : mas- 
ques de saisie, affichage de résultats, pages d'aide 
ou de commentaires, etc. Une préparation sur pa- 
pier rigoureuse et minutieuse est nécessaire pour 
utiliser ce module sous peine de ne l'utiliser que 
comme un jeu stérile. 

L'étape suivante est l’utilisation d'un véritable lan- 
gage de programmation contenant environ 90 ins- 
tructions. Ce langage de traitements de données 
favorise la programmation structurée et autorise 
l'appel à des routines externes écrites dans un autre 
langage. Cette étape est réservée à des informati- 
ciens. |! suffit ensuite de compiler le programme 
ainsi écrit pour en faire une application qui est alors 
portable sur les compatibles quel que soit le sys- 
tème d'exploitation sous lequel ils tournent. Il faut 
noter la grande rapidité du compilateur qui facilite 
la mise au point, elle-même très simplifiée par l'utili- 
sation du mode TRACE qui permet une exécution 
pas à pas. 

La deuxième série d’utilitaires est beaucoup plus 
accessible aux non-informatitiens. Elle contient en 
effet les outils de restructuration de données, de 
mise à jour du fichier et de génération de formats 
d'édition. C'est à ce niveau que l'utilisateur de base 
pourra adapter l'application à ses besoins et à ses 


NL 


mt bn ant Von Veren lmnmmmnt 


MONOPOSTE-MULTIPOSTES-RESEAUX 


habitudes. Sublime s'inscrit donc dans cette nou- 
velle génération de logiciels qui permettent d'inter- 
venir dans des applications informatiques perfor- 
mantes sans être informaticiens. 

Sublime tourne sur les micro-ordinateurs compati- 
bles PC ayant plus de 128 Ko de mémoire vive. Un 
disque dur est absolument nécessaire pour dépas- 
ser le niveau du bricolage. La version monoposte 
est vendue 4 900 F ht, la version multiposte/réseau : 
8 000 F.ht, et l'exécuteur : 1 900 F ht. Il fautenfin no- 
ter qu'une version de démonstration à 250 F permet 
de se faire une bonne idée des capacités du produit. 
L'éditeur de la version française est la société Segi- 
ciel, 27 bis, quai Anatole-France, 75007 Paris. 





Disk Explorer 


Le chirurgien 
de vos disquettes 


Ce logiciel n'est certes pas accessible à tous les 
béotiens, mais sa bonne convivialité l'ouvre à des 
non-spécialistes qui sauront ainsi pénétrer dans les 
mystères des enregistrements réellement contenus 
sur les supports magnétiques. Tous les disques 
standard du DOS sont concernés : souples, durs et 
virtuels. On peut les lire secteur par secteur, piste 
par piste, et bit par bit. Il est alors permis de modifier 
et donc de corriger des erreurs... mais les risques de 
faire d'énormes catastrophes sont grands pour 
ceux dont les connaissances informatiques sont in- 
suffisantes pour en prévoir les conséquences. Ces 
explorations et ces corrections sont réalisées avec 
un éditeur plein écran agréable à utiliser. 
Quelques options méritent d'être notées. La visuali- 
sation du format d'enregistrement utilisé sur la dis- 
quette permet à la fois de protéger ses propres pro- 
grammes et de déverrouiller certains autres. Il suffit 
pour cela de s'armer de beaucoup de patience car 
Explorer n'est qu'un bon outil et non un professeur 
d'informatique. La fonction la plus intéressante sert 
à récupérer les fichiers effacés ou partiellement en- 
dommagés. À elle seule, cette fonction justifie l'a- 
chat de ce logiciel, d'autant qu'elle est simple d'em- 
ploi. 

Le logiciel est accompagné d'une documentation 
en anglais d’une cinquantaine de pages décrivant 
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avec précision l'ensemble des fonctions proposées. 
Il tourne sur les compatibles PC disposant d'au 
moins 128 Ko de mémoire. Il est vendu par PC Mart, 
93 avenue de Choisy, 75013 Paris au prix de 945 F. 


VIF 


L'accès aux logiciels 
du domaine public 


Cette société parisienne va tenter de faire circuler 
en France, le plus largement possible, des logiciels 
dits du “domaine public”. Il s'agit d'adapter à notre 
pays le fonctionnement des “freeware” qui, tant aux 
Etats-Unis que dans plusieurs pays européens, 
permettent d'avoir accès presque gratuitement à de 
nombreux logiciels de domaines très variés : utili- 
taires, applications graphiques, enseignement, ta- 
bleurs, traitement de texte, gestion de bases de 
données... et jeux, bien sûr! 

En général, ces logiciels se répartissent en deux 
catégories : les logiciels offerts par leurs auteurs à la 
collectivité (avis aux amateurs !) et les logiciels en 
version démo ou en version d'essai. 

VIF se propose de diffuser un catalogue de ces 
produits à partir du mois d'avril 1987 pour les pro- 
duits tournant sur compatibles PC. Chaque dis- 
quette, contenant plusieurs logiciels, sera proposée 
au prix de 90F. 

Sur la disquette d'annonce qui nous est parvenue, 
en guise d'exemple, nous trouvons entre autres, des 
logiciels de jeux comme “Packman”, “Kong” ou 


“Pyramid”, un utilitaire de comparaison de fichier 
“Compare”, et un outil pédagogique de pratique de 
l'écriture pour de jeunes enfants comme “WPK”. 
Chacun de ces produits est accompagné d'un fi- 
chier DOC permettant d'obtenir une documenta- 
tion … en anglais. 

VIF (Valorisation Informatique de Fichiers), 5, rue 
de Bassano, 75116 Paris. 





Erratum 


Dans TEO n°12 page 14, nous vous proposions 
un article sur le logiciel Reflex, intitulé “Reflex, 
un gestionnaire intelligent de base de données”. 
Quelques lignes ont malheureusement été ou- 
bliées en bas de première colonne, rendant la 
lecture difficile. Nous vous les redonnons ici en 
vous priant de bien vouloir nous en excuser. 
“Les deux formes suivantes sont plus des outils 
d'analyse. C'est d'abord la vue Graphique repré- 
sentant les valeurs sous forme d'histogrammes, 
de courbes, de camemberts ou de nuages de 
points. C'est ensuite la vue Tableau qui est un 
véritable tableur intégré...”. 


Borland, Les Postillons des Bruyères, 65, rue de 
la Garenne, 92318 Sèvres cedex. 





ABONNEZ-VOUS 


e TEOPHILE Ancienne Version (au minimum 5 numéros) 


Numéros disponibles de 5 à 13 


O 5 numéros 75 Frs (à préciser) .............. 
O numéro(s) supplémentaire(s) 15 Frs l'un (à préciser) ........... 


O La collection complète 100 Frs (du 5 au 13) 


e TEO Nouvelle Version : 


O 1 numéro 25 Frs (à préciser) ............... 
Participation aux frais d'expédition : pour 5 numéros et plus, 10 Frs. La collection complète, 20 Frs. 


Oui, je désire recevoir les anciens numéros de TEO : 


NO MAR ne de de PrénOMiE seen 
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REASSORTIMENTS DES ANCIENS NUMEROS BULLETIN D'ABONNEMENT 


Oui, je désire m'abonner à TEO 


O Douze numéros au prix de 300 Frs 
D Douze numéros pour l'etranger 400 Frs 


Je vous adresse ci-joint mon règlement 
par chèque à l'ordre de TEO : 


avec voire chèque OP D SE OR tie Prénôm ei: NME 
ATOS ha ue Fame e sed orale stone ane te 
a me des ê Places 
9009 Lyon Base Le Rene MIS. ;: Peters 
Tél. : 78.83.84.84 Sr ad 
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Après avoir testé 
votre vision 

en perspective 
cavalière, il s’agit 
maintenant de tester 
les vues de face, 

de gauche, ef de 
dessus, d’un objet 
spatial. 


10 ‘Programme “TESTS de PERSPECTIVE", F2 
BIS" Vues de FACE, Vues de GAUCHE. Vues de 
DESGUE, Copvright Marc CHARNAŸ , E.N.N.A 
. de Lyon-Villeurbanne . 1986. 

15 CONSOLEO, 24: CLS: SCREENC, C, O:CLEAR,. 5 

ib Y$t1)="LA VUE DE FACE": V#{2)="LA QUE 


DE GAUCHE®:V#(31="LA VUE DE DESSUE" 

18 DEFGRE(0)=224,102,160,16,8, 4,2, 1:DEFÉ 
R$E1120,4,6,255,255,6,4, 0: DEFBRS (21:24, 
} 


F(16,40)-(23,147),3:BOXF (24,40)-17 
47),3:BOXF (72,40)-(79, 1057, 3:BOXF( 





jE 
Î 
24,24,24, 126,60, 34 
Q BOX 
7 
4 


de 


TESTS DE PERSPECTIVE 


En | 
Nha 


TA REPONSE 


42 


(Suite du numéro précédent) 


39-1)-18041,39- 





A LINE (2 I, 104)- (344, 


COLOR: ATTRE, Le FEINT® 
SPECTIVES.. . *: ATTREO, 0: COLOR2: LOCATEZ8 
, D: PRINT*ENNA 
36 DIM Ta (3 12328 


AL LOCATES. 20,0: 


LS tt 





" ER À 


Perspectives 


Espace partout 


V.. voyez apparaître, à gauche de l'écran, 
douze figures numérotées de Î à 12. Vous devez 
choisir parmi les 15 figures de droite celle qui cor- 
respond, dans un premier temps, à la vue de face, 
dans un deuxième temps, à la vue de gauche, puis 
enfin à celle du dessus. 


Marc Charnay 
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37 DATA DC,KE DIN FF Hi Bio Es Eu A 
HAN, BC, ID, L,F,B,H4 BF, A, CFE, HB,G 
39 FOR VU=1 TO 3 

40 SOSUB 1609:C 
45 SOSUB 1500: GOSUE 1800:CL8 
50 LOCATEÏ0. 1,0: COLOR2:ATTREG. Le PRINT'TE 
676 DE Ro Q:0N YU GDBUE 


= 












3 COL OLOR1: CCMPT= ü 

ON 1 GOSUE 100,150,200, 250, 300.359, 40 
G6,450,200,580, 400, 450 

LOCATEG, 13,0: COLORZ: PRINTI; 

1 LOCATES, 14: COLDRE: PRINTSR# (VU 1} 

67 COLOR2:LOCATEC, 16: FRINTTA REFONSE ‘: 
CA JE 18: C0LO 4 Na 



















à 1F ASCIRS)CES DR ASCIRS) 379 THEN 62 
&£ COLORI:G0SUB 1400 
88 BDHF 10, 30)-(80, 150) ,"1 
89 IF COMPT=1 AND R#C)T$ (VU, 1) THEN LOCA 
TE4, 12,0: ATTREO, L:COLORT:P PRINT NON" :ATTR 
ÿ NEXT T: COLOR: BOKF (0 







T4: VU, 1) THEN LOC 
ATES, 10: 
ESSEUR": 


À em à 





REPAIRE 











74 NEXT LiNEXT VU E-{0,7B)4LINE-(0,30):LINE(1S,41)-(30,75) 
75 CONSOLES. 24:CLE:COLOR7:LOCATENS.S.0:4  2LINE-130,90):LINE(30,79)-(94,79) :RETURN 
pe NT'SCORE" 8€ 






“rnmif le dr Per A rm mr 


FE FOR Iz1 TO 3:S#(1)=STR#(E{1)) X(30,75}-(78,00):LINE!78,75)-(87,4 
Y pe prit t:LOC ATEC, SHARE FRINTUE LIiLINE- (48,30): LINE- (0,30): LINE- (9,781: 

D ATTRBI 1: LOCATEZT, S+AHL: PRINT" /ZA4:C LINE-130. 090) 
OCATE JE-SHLENISEIT)),E+ANI: PRINT 319 LINE(0.30)-(15,41):LINE- (30,75) :LINE 





{15,41)-(63,41):RETURN 












78 NEXT:ATTREO, O:GOSUB 1606 349 ‘Figure ë 
| 79 IF Glii4gi Pit ve THEN LOCATELS. 21 6 BON(IS.411-(21,65): BON (30. 75)-178,00 
1ATTREL COLOR 7: PRINT'ERAVO":ATTREO, O:6 LELINE LS, 41)- 10, 30) 2LINE- (0. JB) :LINE- 
| CSUE {600:60T0 2 ÿ, 993: LINE(IE. 65)-(30,7S):LINE(3I, NE 
8ÿ CLS:LOCATEN , S: COLOR: ATTREN. is PRINT'V ë. 79): LINE= (31,65) ; 
| DICI LA CORRECTION" . LINE(O,30)-148,I0):LINE-(93, 41):LINE ht 
82 COLORS: ATTREO, js: LOCATEG, 8: PRIAT'EIGUR (31,41HeLINELES, 411-187, 85): LINE-(7E, 75 1940 NEXT JiNEÏT L 
E":ATTRBO,O:LOCATE14,0:F0R I=1 TO ePRIN  j:LINE(47,41)-(42,7E)ëLINE(4S.88)-98,85 100 BETURN 
T STR$(IH 1: NET }: RETURN 
83 LOCATEZS, 8: PRINT" I": LOCATESS, 8: PRINT" 390 ‘Figure 7 





CMILOCATEZE, : PRINT"! ":LOCATESS, 9: PRINT" 400 BOX(19,27)-(58,53):BDX (20,60)-(68,76 AND COMFT=L THEN S1Y 
{":LOCATES7. 8: PRINT"A":LOCATEZ7.G: PRINT"  )eBON(20,831-(78.90):LINE(S0.37)-(48,20) 


NE-10,20):LINE-110,27):LINE (0, 20)-(0 AIS IF R6=T# (VU, 15 AND COMPT=Z THEN EV 


E 






















































| # El 3,30)-{0, 
| 5 FOR Visi TO 3 FE):LINE- (30. sil QUTRE 
| 88 COLOR2:ATTRAO, 1:LOCATEO. +47 VU: PRINTA 410 LINE(10,89)- 120,40) &LINE (58,57) (48, 1420 RETURN 
| LAINE ÉC)ELINE (20,76 113085) à LINE(S6. 761-478, 1500 °E,P. FR 15 
| 7 FOR J=1 TO 1 ) sRETURN 1995 LICATES. © Ei, O:COLOR2:FRINTÉE 
FRBO, 0: COLORS:LOCATE 13+241,9+4ful: igure Ë XFLICATIONS":ATT TRBO. Q:COLCRS 
| FRINTT#(UU, 1): B NS A1)-167,87i: BON ZO, 87-178, 87 1510 LOCATEO, 2.0: PRINT" 
95 NEXT IINEXT VU jiLINELES,BT)-(63,09):LINE-(1E 80): LINE- * aitre À gauche detL DATE, 4, D: PRINT Là 
| 5& GOSUE 1 i£90 (15,73):LINE-(30,93):LINE(15.57)- 57) cran 2 figures numerotees de ! à 11": 
| 09 CONSOLES, 24: CLO:SCRÈEN 4,8, 4: END tLINE(SZ,571- (76,87) CATEG, 4, G:PRINT Tu dois choisir carm le 
| 98 ’Figure ! 460 LINE(ES41)-(48,JO)2LINE-(O,ZODILINE 5 \5 figures de” 
| INE(0,30)-(0,78):LINE-(I0 COR: LINE. -({0,78):LINE-(15,80):LINE(G, 2@1-195,4iis 1520 LOCATEO.8,0:PRINT" gratte celle qu: | 
2, SHILENE- (15: 65) LINE= 15,41): LINE-T h corresoond ":LDCATEO, 10, Ge COLOR: PRINT | 
30):LINE- (46,30): LINE-(87, 41): LINE- $ (VU) : COLORZ: LOCATED, 12,0: PRINT" Tu tager 
s6S) SI LINE- (78, 7a)sLINE= (78,90): tINE- (30 -178,90):LINETE, TE ILT € as la lettre de la fioure “:LOCATES, 16,0 
| 30) INE- 115,41): LINE-(1©, 99 PRINT "choisie" :RETUEN | 
| ii -(39,85):LINE-163,85 | 1530 RETUR 
à5 LINE (EG, 801-154, 1&00 page 
1 LINE-iû «ADR té tt COLARZ: PRINT Pour cont | 
15 N£IQ,301-{15,41: inuer.agpuyer sur une touch g"ssCSSINKEVS 
Li:LINE 1620 IF Cs="" THEN 1£10 ELSE en 
MALE (840) 540 Figure 19 Fqet 20e 
160 LIME(S0,99)-(0,70)2LINE-(0, F0): LINE- | seÿ ROX(ZS. 41)-{&x 
} {B,30):LINE-(78,5:LINE(Q,30)-{45.41): j:BOK(S4,75)- (78, 00): 
FETUR! 
| 17° : 
j 200 = (39480) :CINE( 39, 89)- (54,5 
| 4} J'sLINE-(24,30): LINE 124,54 
| } jiLINE(Z4,54)-(0, 54) :LiNE-t 
| j 59: 
1 {is 


NE-(BSS)ILINE- à 279.48) 


LIBAN EE CINE 





Le he LINE( AD) U15, 88) 2LINE-C1E, EL) LIN 
ES. Aiil LNE- (0,30) :LINE- 10,29)-40, 78::LINE-(20.99): RETURN 
(PB SL)LINE- (54,51) Fiqure 12 
11S178, 993: LINE-130, 3812LTEN Box (7 10,75)-146,90):B0X162,75)-178,99 
| TO NeA4-MA 1987 13. 





REPAIRE 





D,120}:B0X (221, 102)- 


2990 BOX (245, B4i-1970 


«120):LINE(Z45,162) 





à 7; DE a 
120):B0k(283,192)- 
i-1119,:20) 
G BOX(123.188)-(1 (ITS): BON L, 140) 


-{150 174) 


2170 RP É Gi 17i GT Y f 
20 PRIT MAT EAMEAUUN 


31,158) 





30}-{ 


23,30}:-(159,66):LINE(141, 


y 

ñ° \ 
LINE Les 
BOX 4207, 201 - (2 






) BOX (247, 30)- 


s 
+ V1 {DT 41) 
1-{319,6b):LINE(283,42)-1 


Truc et Poke 


ne astuce en Basic 
428, avec l'instruction POKE. 


caractères. Ainsi POKE 
&H9000,CH$ permet d'écrire 
à partir de l'adresse hexa 
1 en cn codes 
ASCII des caractères 


constituant la chaîne CH$. 


A titre d'exemple : 

10 CH$="ABCD" 

20 POKE &H9000,CH$ 

remplacera avantageusement : 

10 POKE &H9000,&H41 ou ASC("A”) 
20 POKE &H9001,8&H42 

30 POKE &H9002,&H43 

40 POKE &H9003,&H44 

Encore une possibilité cachée du Basic. 
Michel Carrere-Gee 
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DUREE 54) 

-1135,84):LINE-(135,0E) 
: LINE- (147,108): LINE-CIS6, 
QYiLINE-(123, 126): LINE- 
}:LINE(:31,84)- 


JICINE= (239,102 
205, 129):LINE- (20 


\1243.84)-(281,120):BDX(243;102)- 


? à iTID diei INL FOUT. to 
30471619, 120) :LINE (285,403 


Si: onv ; 
={141,176):B0X (141.58! 


= ‘159, 176):L 
3129 LINE(163,140)-1181,140):L 
S8):LINE-(199,158):LINE-(199,178) :LINE-: 
163,176):LINE-(163,140):FOR Y=158 TO 176 


INE(141,158)-(141,175),-1 


INE-(181,1 


STEF 3:PSET({81,Y):NEXT 
3130 BOX(203.158)1-1221,178b):LINE-(239,17 
pins (221,140) :LINE-(203,140):LIME-17 
ÊZ, 59} 

140 LINE (261, 1401-1277, 198) : LINE-i379,1 
La ILINE-(743,176):LINE-(243,140):LINE-( 
261,140):LINE-(261,198):LINE-(279,158) 
3150 ECX(283,140)-(319,178):LINE(3O. 140 

}-(283,176) 
3160 RETURN 
3906 ‘Dessin des figures-reponses.Vues d 


Calendrier 
perpétuel 


RE 


date, vous aurez le jour 
correspondant. 


O INPUT"JJ,MM,SSAA : “,D,M,A:S=A8100 MOD 

4:84 ie A ET 

" M1))#(MET) SUB MOD4< 04 (B=0) 
430) es ADIMANCHE, LUNDI, MARDI, MER 

CREDI, JEUDI, VENDREDI, SAMEDI :FORI=0T0J:RE 

ANS: NEXT:PRINT"Le":DiMiAi "est un "iN$:C 
LEA: PRINT: 60TO 






Kaleiï 


g DESSUS 

4006 COLOR: 

4019 BOX(123,30)-(180,£6}: BOX 1123,48)-01 
47,66):B01(155,48)-(159,66) 

4020 BOX (185,30)-(199,. 66): BOX (163, 48} -{i 
Bi,6éi 

4030 BOX (205, 36)-1239, 66} :LINE (207, 42)-1 
239,42):LINE(205,54)-(239,54; 
4040 BOX I243,20)-(270, 86) :LINE (28 
278 56) 

50 BOX(283,30)-1319,48):B0X-(301, 86) 
n BOX(123,84)-(159,120):LINE (123,102) 
(159,102) 

4070 BDX(155,84)-(199,102):BOX-(187,120) 
:BOX(163,102)-(175,120) 

4080 BOX(205,44}-(239,192):B011221,84)-( 
239,120) 

4090 BDX(279,102)-(245,120):RDX-(261,B4) 
4100 BOX(283.84)-(319,120):LINE(301,84)- 
(301,120) 

4110 BOX(123,140i-(141,176}:BOX-(159,158 
} 

4120 BOX(183,140)-(199,174): 
)-1165,178) 

4130 BOX (203,158)-(221,176):BOX-(239, 140 
4140 BOX(243,178)-(279,140):BDX-(261,158 
} 

4150 BOX(203.140)-(319,176) :BDX-(307,158 
}:BOX(285,158)-(205,1761 


4160 RETURN 


1,39)-1 






LINE{181,140 





10 FOR T=&HDFO0 TO &HDF15 

20 READ AS:POKE T, VAL ("&H"+A$) 

30 NEXT 

40 CLS:SCREEN 7,0,0:LOCATE, ,O:CLEAR, ,1:D 
EFGR$(0)=170,85, 170,85, 170,85, 170,85 

50 FOR 1=1 TO 6:FOR Y=0 TO 24:FOR X=0 TO 
39 

80 IF 1=1 THEN CT=INT (RND#18) :CF=INT (RND 
t16):1F CF=CT THEN 80 ELSE PSET(X, Y)GRS( 

0),CT,CF:60TO 90 

81 IF I=2 THEN PSET(X,Y)GRS(O),X MOD 154 
1:60T0 90 

82 IF I=3 THEN PSET(X,Y)GRS(0),Y MOD 15+ 
1:6070 90 

83 IF I=4 THEN PSET(X,Y)GRS (0), (X8Y) MOD 
15+1:6070 90 

84 IF 1=5 THEN PSET(X, Y)GR$(0), (X/(Y+1)) 
MOD 15+1:6070 90 

85 IF 1=6 THEN PSET(X,Y)GRS(0), (X+Y) MOD 
1541 

90 NEXT X,Y 

99 FOR B=1 TO 1000:EXEC&HDFOO:NEXT B, I 
100 DATA Bé,E7,C3,84,FE, B7,E7, C3, 8E, 40,0 

0,46, 84, 4C,A7, 80,80, 5F, 40, 26,Fb, 39 





VIDEO 3e 


C'est aussi la C'est aussi le parrainage : 
THOMCARTE : pour tout parrainage supérieur 
la carte de fidélité qui donne . à 2.000 F. un logiciel gratuit 
droit à 5 % de réduction. pour le parrain. 


ml 












































MATERIELS * : Lecteur de disquette 640K 3"12 

Unité centrale TO9 + Contrôleur de drive 640K T07-70/M05/6 

TO09 + et moniteur couleur 36cm HR Lecteur enregistreur de K7 T07-70/8/9/9 + 

TO9 +, moniteur mono, imprimante haut de Manette de jé" nu se Re re 
gamme 80 colonnes, souris et câbles Imprimante PR90:-612 haut de gamme 80 col. = 
TOB8, moniteur couleur 36cm HR et drive 640K ___ Câble imprimante T08/9/9 + 
Unité centrale TO8 Boîte de 10 Quick Disk 2” 8 vierges 

Souris T08/9/9+ et MO6 Boîte de 10 disquettes vierges 3”!2, 

Crayon optique double face, double densité 


OO0COOC OC 
O0 OCOOCOOD 


LOGICIELS : Green beret + Monopoly + Super tennis 
Les passagers du vent (D) T08/9/9 + + Runway (D) TO8/9/9 + 

Les passagers du vent 2 (D) TO8/9/9 + Stone zone (D) T08/9/9 + 

L'Héritage ll (D) T08/9/9 + Les cavernes de ténèbres (D) TO8/9/9 + 
Dakar 4x4 (D) T08/9/9 + Kung-fu (D) T08/9/9 + 

Dakar Moto (D) T08/9/9 + Erébus (D) T08/9/9 + 

James Débrig : le grand saut (D) TO8/9/9 + Mad dog (D) TO8/9/9 + 

The way of the tiger (D) TO8/9/9 + TNT (commando) (D) T08/9/9 + 


DT AD) TON EDUCATIFS VIFI NATHAN : 


Missions en rafale (D) T08/9/9 + ; x 
ÿ H Eu Il (D) TO8/9/9 + (Disquette T08/9/9 + et livre) 
éar: Huong:Futi0) Français CP/CE 


Paragraphe (D) TO8 x 

Fiches et dossiers (D) TO8 Français CM __ 

Multiplan (D) TO8 Français CM2/6ème 

Comptabilité générale (D) TO8/9/9 + Maths CP/CE 

Colorpaint (K) MO5/6/T07/8/9/9 + Maths CM _— 

Colorpaint + studio (K) TO7/8/9/9 + Maths CM2/6ème 

Astérix et la potion magique (D) T08/9/9 + EDUCATIFS BELIN : 

L'affaire Sydney (D) TO8/9/9 (Disquette TO8/9/9 +) 

Carte du ciel + super tennis (D) TO8/9/9 + Histoire/Géographie 

Numéro 10 + Beach head (D) T08/9/9 + ______ Français 1 

Vol solo + La nuit des Templiers (D) TO8/9/9 +___ Français 2 
EMS'Cobra (D}TOB/S 9 EE Maths 1 
Les dieux de la glisse (D) T08/9/9 + Maths 2 


ODOCO0D 





OCOCOO 





OCOO000000O0O0O0O00000C0O00C 


OCO0OD 


LIVRES : NOUVEAU CHEZ VIDEO . 
Manuel techniques des TO8/M06 et TO9+ ——  145F [] : la carte - 5% LaT 

102 programmes pour T08/M06 et T09 + ____  135F LME on : 
Super jeux pour TO8/MOG/TO9 +  140F [I ere nent droit respectivement à une remise 


Fe se RTS ayantes vous don UN | : 
Ainsi que tous les logiciels, matériels, périphériques, etc … ns . immédiate sur tous les logiciels disponibles chez 


disponibles en boutique. VIDEO 32. 


: la carte -10% 





e  : cartouche F : se 
, Chacune d elles est valable 2 ans a c om ter du jour de son acquisition 
” Elle n est utilisable que par son propr iétaire. 


nt ls rl he Care au samedi, de 14h à 20h TA HOMCINO valable 2 ans :500F La THOMDIX valable 2 ans :850 F 


D Je désire acquérir la THOMCINQ. Ci-joint le règlement supplémentaire de 500 F (je déduis donc 5% des logiciels commandés). 
[O Je désire acquérir la THOMDIX. Ci-joint le règlement supplémetaire de 850 F (je déduis donc 10% des logiciels commandés). 


Prénom Ci-joint mon règlement : TOTAL DE MA COMMANDE : 
Adresse … Chèquec CCPO mandatÜ 


Code Postal 


è : Signature 
Configuration De 9 pre THOMCINA 

No THOMCARTE - remise si carte ou 

. THOMDIX (voir ci-contre) -… % 


+ frais de port (30 F) 

















VIDEO 32 - 32, rue de Lancry - 75010 PARIS eo al 


VIDEO 32 Il - 39, rue de Lancry - 75010 PARIS Minitel : 42.06.8887. 
































CORTEX 








Séquence V : un intermède 


©, trouve, dans l'intéressant petit livre de 


poche de Pierre Berloquin “100 jeux logiques”, le 
problème suivant : 

“Dans une petite mairie, sous le buste de Marianne, 
les cinq conseillers municipaux — Antoine, Ber- 
nard, Claude, Didier et Etienne — sont réunis pour 
élire leur maire. Ce sera l'un d'entre eux. 

Ils sont assis dans l'ordre alphabétique, dans le sens 
des aiguilles d'une montre. Au premier tour, chacun 
vote pour celui qui vote pour son voisin de gauche. 
Bien sûr, personne n'est élu. Mais pour qui chacun 
a-t-il voté ?” 


Représentation du problème 


X6 xi > 


X5 


Voici nos cinq personnages autour de la table. Pre- 
nons comme référence X0. |! doit voter pour un X qui 
va voter pour son voisin de gauche, c'est-à-dire 
pour X6 (qui est en faitidentique à X1, comme X0est 
identique à X5). 

5 4 nos personnages (et leurs doublets) sur une 
iste 


X 
(X0, X1, X2, î X4, X5, X6) 
X3, 


ÿ 


Comme tous les conseillers votent de la même fa- 
çon, XO doit faire pour X ce que X fait pour X6. X est 
donc équidistant de XO et de X6, X ne peut donc 
qu'être identique à X3. 


intuition de la solution 

Pour obtenir tous les votes, il faudrait prolonger très 
loin la liste (XO, X1, X2.... ) de manière à repérer X1 et 
X7,etainsi de suite. Mais, comme tout recommence 
à partir de X1, puis de X2, etc, mieux vaut se 
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privoiser Prolog 


La permufiation circulaire 


contenter de la liste (XO, X1, X2, X3, X4) et introduire 
une procédure de permutation circulaire qui, en 
frappant le 1% élément en dernière place, amènerait 
le 2° élément en 2° place, le 3° en 2°, etc. 


La permutation circulaire 


SLISTCPERMCI > 
=12C32PERMCIC 4K8, XXO ). 
=2=(142)PERMCIC CXKXB) XX 1 ), XX2 ): 


CONCC XX1 , CXKO ), KK3 8 
PERMCICXKX3,4X2). 


Cette primitive semble, intuitivement, assez simple. 
Mais son appel, même sur un exemple réduit à une 
liste à trois éléments, révèle une petite surprise. 
Nos solutions “tournent”, en effet, indéfiniment. 
C'est que la clause 1, malgré son apparence, n'est 
pas une clause d'arrêt de l'ensemble du processus. 
Elle se limite à instancier “XO par le résultat d'une 
séquence de trois CONC. Parexemple, sur PERMCI 
((B, C, A), *X0) elle se contente d'unifier *XO et (B, 
C, A)... Le mécanisme repart ensuite avec PERMCI 
((B, C, A), *X0) et ainsi de suite, même après le 
retour à PERMCI ((A, B, C), *X0). 


S7:PERMCICCM,N,0),xx0) 


Dans une procédure de ce type, il n'y a pas, pour 
l'arrêt, de repère interne (comme le serait, par 
exemple, le STOP récursif sur une liste vide). 
Aucune progression générale ne se dégage d'une 
solution à l'autre. 


Intermède dans l’intermède. 
Comment arrêter ? 

Cetexemple nous donne l'occasion de réfléchir sur 
deux techniques d'arrêt : une technique externe et 
une technique interne. Dans les deux cas il s'agit de 
bloquer PERMCI à volonté, par exemple après 
autant d'appels qu'il y a d'éléments dans la liste (on 
obtient alors la série complète des permutations 
circulaires et seulement celles-là). 


Technique externe : cette technique ne 
change rien à la procédure elle-même. Elle initia- 
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lise, comme une donnée, un compteur séparé de la 
procédure, par exemple COMPT(3) pour une PERMCI 
à trois éléments. À chaque passage, on appellera le 
paramètre de COMPT, on effacera la donnée cor- 
respondante, mais ce paramètre, diminué de 1, sera 
réintroduit dans les données. Au troisième appel, 
avec COMPT(1) et la condition »{*X5,0), le proces- 
sus s'arrêtera et aucun COMPT ne subsistera dans 
les données. Voici le listing de ce petit programme 
PERMCI-A : 


m1=C32PERMCI-AC XXE, XX ). 
22=(29»PERMCI-ACC XX: KA 1 2, KK2Z ) 
CONCCXX1 , CKKO >, XX 8 
COMPTCKX4 38 
PACKCÇ COMPT )& 
ERASE& 
—CKK4, 1,4X5 28 
>CHXXS, 0 28 
INSERT( COMPT( XKS ) 8 
PERMCI-ACXX3, XK2 ). 


Appelons-le sans oublier l'initialisation : 


SCOMPTC3) 


2 TERMES 
87 :PERMCI-RCCM,N, 0), XK0 ) 


*x0 = (M,N,0) 
*xxe = CN,0,M) 


*xx0 = (O,M,N) 
-— SUCCES --(3)-- 
$ 


Technique interne : PERMCI-A ajoute deux 
paramètres à l'appel, le premier introduit l'initialisa- 
tion en début, et le second introduit la limite du 
comptage. Donnons-nous comme variante une pe- 
tite clause d'incrémentation : 


=1=<S>PERCI-AC HA, HG, HAL HZ, 
z2=<24 >PERCI-AL CHAUX 1, HAT, HAT, HA 
C #5 08 





== 7>INCRE#HG, HA 
+48, 1,412. 

ST: FERCI-AS CM, M, 05, #%0,1,3 0 

+ = CM, H, 0 

+0 = CH,0,M) 


+4 = CO, MH 
- SUCCES -—{3)-- 


Solution du problème de départ 
Les éléments sont à présent réunis pour résoudre 
notre problème. Une clause VOTE permet de mar- 
quer le vote de XO pour X1 dans une liste à cinq 
éléments distincts, liste réduite qui permet du même 
coup de représenter l'installation de nos person- 





nages. Articulée à leur liste (ANTOINE, BERNARD, 
CLAUDE, DIDIER, ETIENNE) elle instancie bien XO 
et X1. 


=1=<152VOTECCKX0, XX1 >, CKXD, XKZ, KXXS, KK1 : KA D). 


Bz:voreccxxe, x41), CR, B,C,D,E >) 
**X0 “A 

**1 =D 

-— SUCCES --(1)-- 


D'où la possibilité d'une solution avec initialisation 
externe ou d’une solution avec initialisation interne. 


=]= 





VOTE POUR *,#K1 6 





=1=<16>S0L1 
YOT-POURC CHKG ; #1 2, € ANTOINE ; BERNARD, 
CLAUDE , DIDIER, ETIENNE )). 
8>SÛL2 
ITE-POUX CHE, #K1 1, CANTOINE , BERNARD , 
CLAUDE , DIDIER. ETIENNE à). 








#7: SOL2 
ANTOINE YOTE POUR DIDIER 
BERNARD YOTE FOUR ETIENNE 
CLAUDE YOTE POUR ANTOINE 
CIDIER VOTE POUR BERNARD 
ETIENNE YOTE FOUR CLAUDE 


Autre intermède 

La devinette récursive 

Toujours dans les “100 jeux logiques”, Pierre berlo- 
quin rappelle l'histoire classique du sultan qui sou- 
haite lèguer son inestimable jeu d'échecs en dia- 
mants à celui de ses fils qui saurait “jouer moitié 
autant qu’il lui reste de jours à vivre”. 

L'aîné et le cadet refusent, “arguant qu'ils ignorent 
combien il leur reste de jours à vivre”. En effet, l'aîné 
et le cadet, même s'ils veulent représenter leur vie 
par une liste de jours dont la tête est aujourd'hui et la 
queue, l'avenir — VIE(*P ; *AV) —, se trouvent dans 
l'impossibilité de calculer la longueur de cette liste 
et, par conséquent, d'en prendre la moitié. 

Le plus jeune accepte car il s'intéresse à Prolog, etil 
devine qu'une moitié (et son double) peuvent être 
indéfiniment relancés par une tête de liste à deux 
éléments. Il dédouble donc le présent de son cursus 
vital : VIE((*X0,*X1) ;*X2) avec un *X2 indéterminé 
(bien que ramené un jour à la liste vide). 

Il prend la moitié de ce présent en isolant un élé- 
ment qui déterminera son jour de jeu (*X0), qu'il 
traduit par le programme suivant : 





=1=<3>JOUR-JEUC NIL,NIL). 


en commençant tristement par la clause d'arrêt: 
quand la liste de ses jours sera NIL, il n'y aura plus 
pour luj de jours de jeu. 

La deuxjème clause détermine effectivement le jour 
de jeu et relance indéfiniment les queues de liste. 


CORTEX 





=1=#<3>JOUR-JEUC NIL,NIL ). 
=2=<12>JOUR-JELX C KX0, XX 1: KX2 ), CKKO: KXG DD: 
JOUR-JEUX XX2, xK3). 


Il effectue une projection raisonnable (pour lui et 
pour l'écran du TO7) sur quelques jours de la se- 
maine qui commence aujourd" hui et il en tire la 
règle : 


$ 
$7:JOUR-JEUXC (LU, MA, ME, JE, VE, SA), XX0 > 


*x0 = (LU,ME, VE) 
-— SUCCES --C1)-- 
s 


Cette règle esttrès simple. À partir de maintenant il 
jouera un jour sur deux. 


Fin des intermèdes. 
Quatre procédures de tri : 


1- Le tri à bulle : pédagogique, simple, et. 
peu efficace. Les éléments, ordonnés paire après 
paire, laissent remonter peu à peu les plus petits à la 
surface... 







=i=< FORLEES #° Bi 
CAO: #X1 
3} BUBBLE. : 
=2=<26>BUBBLE: 
CONC< # 
OROREC #X4 , 443 
CUT& 
CONCCXKZ, CHKA , KK3 3 AS D, KG 8 
BUBBLEL 4X6, KX1 


S7:EUBBLE((7,8,5,4,2),*x@) 





K4 : #KS ), KE 
»& 





+*x0 = (7 
*x0 = 
*xa 





**0 
**0 


C4, 
(4 
(4, 
C2 


—— SUCCES -—(107—— 


ea 
LI 
CREER! 


Saone ve à 


2 - Un tri par insertion : ce tri fonc- 
tionne grâce à une procédure TRINS2 qui insère les 
têtes de listes successives dans des queues de liste 
déjà triées (comme s'insère une carte nouvelle dans 
une main de jeu). 


CR 


1=:2>TRINSCHNIL, NIL ) 
2= 122TRINSCC#KG à #1 D 
TRINSC#X 
TRINS2 * 





=1=<16>TRINS2C #HO, CKX1: KK2 D, CHK1 : NI DD 
ORDREC #X1 , XX 22 
CUT8 
TRINS2CKX9, KX2, KK3). 
22=<62TRINS2C#KA, #1, CKKG:KKI D). 


S7 TRINS2C4,(2,8,9,7,19),#X0) 
*x8 = (2,4,8,9,7,10) 


gr QUÇCES =D 


‘ S7:TRINS(C9,8,7,6,5,4,3,2,1),*X0) 


+xa = (1,2,3:4,5,6,7,8,9) 
— SUCCES --(1)-- 


3 - Un quick-tri : la procédure auxiliaire 
réalise ici une distribution à quatre paramètres, dis- 
tribution qui répartit la liste de départ (1°! paramè- 
tre) en deux sous-listes selon que les éléments sont 
inférieurs (3° paramètre) ou supérieurs (4° paramè- 
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tre) à un élément repère placé en 2° paramètre. 





XS, 
CONCC##6, 0% 
S7-Q-TRICÉ7,8,9,4,3,2,1.0,7),#*@) 


+xa = (8,1:2,3,4,7,7:89) 
—— SUCCES --(1)-- 


Ce processus, rapidement démultiplié par TRINS, 
aboutit à des sous-listes complètement triées qu'il 
suffit de concaténer. 


4 - Un tri par les arbres : 


$7:ARB1C(8,4,6,5,2,0,9,3),#N0) 
+x@ = {3,(9,NIL,€2,NIL,NIL)),C9,€5, 
C4, NIL,NIL),C6:NIL,€8,NIL:NIL))2,MILD) 
—— SUCCES --(1)-- 
$ 
$LISTC ARE > 


=1=<11>ARE1CC 
ARBLCHX 
AJOUT # 

=2=<12>ARB1 
ARBI1CX#X1, 
AJOUTC#K9, #3, #K2). 

=3=<3>ARBISMIL,MIL). 







SL1STC PARCOURS à 








=1=<4)>PARCOUR 

=2=<20>PARCOURS( € 
FARCOUR: 
PARCOURS #% 


SLISTCTRIER ) 
=1= 1a> TRIER(#*0G 





La clause ARB1 élabore un arbre dont la racine est 
le dernier élément de la liste à trier, et dont les 
branches, à chaque noeud, s'enrichissent d’un élé- 
ment placé à gauche (si plus petit) ou à droite (si 
plus grand). TRIER complète ARB1 par un PAR- 
COURS qui remonte les noeuds et les branches de 
gauche de manière à redistribuer les éléments dans 
l'ordre inverse. Nous dédions à la grande équipe du 
CREFI de Marseille l'adaptation de cette procédure 
qui mérite une étude attentive à travers TRON 
Armand BIANCHERI 


nie nn mod és rnamaten me a ré tt mm nil mecs titine censure À à 
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Casse-tête 


L. programme suivant est 
une version différente d'un 
pi ramme nommé Dedale 
blié dans le N°12 de Téo. 
Pete fois-ci, on joue avec le 


crayon optique. 








1 DIM A(11),B(113,F411),2(5,6) :DEMO=1 TE20,24,0:PRINT"J, Thuaudet"; :PRINT'Tagez sur ":LOCATEO, 21:PRINT"la ! 
? COU=0:L LOS CATES, û ÿe ä$= INK ‘EY [t 32 1£ DEMD=i THEN C9! 087 û: :LOCATES, { 4 ettre “LOC: TEO, 22: PRINT"- -6- au ":L10C 
PRE 4.6 détas. —: NOURRIR ATEO,23:PRINT" clavier ":60T035 
10 CLS: SCREENO, 4, 4: GOSUE 1800 RINT"Amenez la ":LOCATEO, 2: PRINT" Fi a genie 2 DM te 
20 RESTORES000: FOR I=1 TO 10:READAUI),8C | ce "2LOCATE9, 3: PRINT'carrée du ":L0CaTEo 4 COLOR7,0:LOCATEO, 1,0:PRINT'A vous 
1h ,FÉD) &:PRINT"bas vers "sLOCATEO S:PRINT'le | *LOCATEO AN rt LOCATEO, 3: 
25 A=AUI):B=B(1):C=A43-AN (FUI) MODZ=0):D haut += DCATED SOLAR: OPEN td FRINT'avec le *:COLOR!,0:LOCATEO,4:PRI 
| =B+3-44(F (1152) : G0SUE1100:NEXT dez ":LOCATEO, 12: PRINT"la Dénc..."ELSE NT'crayon  ":LOCATEO,5:PRINT'optique 
Mb 30 FOR J=0 TO 4:FOR I=0 TOZ:READ ZUI, Ji: 34 | “*LOCATEO, 11:CGLORS, O:PRINT "Bon : 
M Luexrr,s | 33 COLDÉS, 0:LOCATEO, 18: PRINT" Pour arret"  *LOCATEO, 12:PRINT' courage. ":60T010000 
ZE [=fjs J=ûe I=1.608 
i 31 1=0:J=0:C0U-1:608UB1000:COLORS,C:LOCA | sLOCATEO, 19:PRINT'de la Déno":LOCATEO, 20 | 2, me Ru ag pd des 
j 
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13 lettre 
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Accords 





: ; C. programme propose l'apprentissage de 41 

Le petites notes de accords de guitare usuels. || permet, lorsque l'on a 

musique... plus exactement F DO7 choisi un accord de l'entendre — plus ou moins 

41 accords pour a bien, mais le synthétiseur du TO7 est ce qu'il est.. — 

commencer à jouer de la AS SITE RE RUE RTE et de le visualiser à l'écran. On voit la position des 
guitare 5 composent cet accord doigts, les barrés et les cordes à ne pas jouer. 

: 6 L'accord affiché est joué six fois de suite, de plus en 

7 plus rapidement. On peut demander à le réenten- 

& dre, à voir un doigté différent ou changer d'accord. 

es L'option imprimante est prévue pour une MT 80 à 

ni." sO0L:D6 (ME. 815 condition de charger le logiciel de recopie d'écran 





au préalable. Vous devrez l'adapter à votre impri- 
mante. 
Jean-Marie Bessaguet 





1 

2 DO 

S 

À Ecoutez les notes qui 
= composent cet accord 
[) 

F 

S 

o 

PTE DO MI LE: DO MI 
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10 "HEIN 

20 4 ACCORDS t 

30 *Y pour T07/70 1 

40 ‘par J-M BESSAGUET 

30 CHHHNINNINNNNIINENIT 

60 ? 

70 FÉSNNIENNENENNNANNTENNES 

80 *HDEFINITION CARACTERESH 

90 “HNANEÉNINENNNNENENENIT 

190 CLEAR,,9 

110 DEFGR$(0)=0,0,0,0,5,28,94,128 

120 DEFGR$(1)=0,0,0,0,192,56,6,1 

130 DEFGR$(2)=0,24,36,36,36,36,36, 24 

140 DEFGR$(3)=36,36,24,0,0,0,0,0 

190 DEFGR$!4)=128,64,32,16,16,16,16,31 
160 DEFGR$(5i=1,2,4,8,8,8,8,248 

176 DEFGR$(6)=0,0,0,255,255,0,0,0 

180 DEFGR#(71=0,24,60,126,126,60,24,0 
190 DEFER#S(8)=129,66,36,24,24,36,66, 129 
200 *HANEENINNETNNT 

- 210 "YDESSIN GUITARE 

220 ‘HANIIINNNNNNNEE 

230 CLS:LOCATEO, 0,0: SCREEN7, 1,5:R=15:F0R 
d=5,49707. 11STEP, 07 

240 PSETIRACOS(J)+113,RASINIJ) +130) : NEXT 
250 FORJ=2,35703.92STEP.07:PSET (R#COS(J) 
+190,RISIN(J) +130) :NEXT 

260 R=30:FORJ=3,92701.57STEP-,02:PSET (RI 
COS (J)+143,RISIN(J)+162) :NEXT 

270 FORJ=S, 49707. 85STEP. 02: PSET (RICOS (J) 
+159,RISIN(J)+182) :NEXT 

280 R=15:FORJ=2. 35704, 71STEP,02:PSET {RIC 
05J)+134,RASIN(J)+109) :NEXT 

290 FORJ=4.71T07.076TEP.02:PSET (RYCOS (J) 
+169,RASIN(J)+109) :NEXT 

300 LINE(133,93)-(170,93):LINE(144,192)- 
(161,192) 

310 LINE{147,93)-1148,15):LINE(156,93)-( 
155,15) 

320 LOCATE18,2,0:PRINTORS (4) ;6R$ (5) 

330 LOCATE1B, 1,0: PRINTORS (2); 6R$ (2) 

340 LOCATE19,0,0:PRINTORS (0) ;GR$(1):LOCA 
TE0,0,0 

350 LINE(L43,8)-(143,18):LINE(160,8)-(16 
6,16) 

360 R=10:FORJ=0TO6. 28STEP. 07: PSET (RICOS( 
d}+151,RYSIN(J)+150) :NEXT 

370 ROKXF(159,172)-(143,173) 

380 LINE(146,173)-(149,20):LINE (148,173) 
(149,20) :LINE(150,173)-(190,20):LINE(IS 
2,173)-1151,20):LINE(154,173)-(151,20):L 
INE(156,173)-1152,20) 

390 *Atttitt 

400 ‘TITRE 

410 Hittttt 

420 COLOR2: LOCATE9, 18:PRINTCHRS (14) : CHR$ 
(54); CHR$ (107); CHR$ (32) ; CHR$ (55) ; CHR$ (35 
);CHR$ (32) ; CHRS (55) : CHR$ (35) : LOCATE21,18 


REPAIRE 





SPRINTCHRS (61); CHR$ (43) : CHR$ (32): CHRS {72 
}:CHR$ (106) :CHR$ (32); CHRS(119):CHR$ (115) 

430 LOCATES, 19:PRINTCHRS$ (101); CHR# (122); 

CHRS$ (32): CHR$ (117): CHR$ (112) :CHR& (32) : CH 

R$(117) ;CHR$ (112) :LOCATEZ1, 19: PRINTCHRS ( 

93) ;CHR$(32) ;CHR# (32) ; CHR$ (119): CHRS (127 
);CHR$ (32); CHR$ (112); CHR$ (122): CHR$ (15) 

435 LOCATEO, 0,0 

440 “Hitittttt 

450 ‘MUSIQUE 

460 ’tiitittti 

470 PLAY" T4L24SIPSIPSIPSIPLAFSOPSOPFA£PM 
IPMIPSOPSIOSPMIPMIPMIPMIPREPDOPDOGA4PSIPL 

APLAPSIPOSDOPO451POSDOPOAS IPOSRE£FDOPO4S 
IPSIPLAPSOPSOPFA£PMIPFA£PFA£PFA£PFA£PSOP 

FAEPMIPMIPMIPL72MIP" 

480 LOCATE6,6:COLORO:PRINT"'REALISE PAR": 

LOCATEZ1,6:PRINT"J-M BESSAGUET":LOCATEZS 
,23: PRINT" Novembre 1985": G0OSUEB500: GOSUES 

00: 6070530 

490 "HIHI 

9300 *#TEMPORISATIONt 

J10 "HESIEENNTNINNNS 

920 FORT={TO800:NEXT: RETURN 

930 HIYIYNNINIEIT 

340 *YPRESENTATIONt 

J90 “HERENENENNEENT 

J60 CLS: SCREENI,0,0:ATTRB1,1:LOCATE7,1:P 

RINT'MODE D’EMLOI":ATTRBO, 0 

370 LOCATE6,4:COLOR7: PRINT "Vous allez vo 

ir apparaitre sur":PRINT'l'écran un manc 

he de guitare. Si vous désirez savoir 

coasent se fait un accordil suffit de le 
demander à votre ordina--teur qui vous 

répondra en vous aontrant" 

380 PRINT:COLOR2:PRINTTAB(10)"- où aettr 

e les doigts(";:COLORI:PRINTERS (7) ; :COLO 

RS: PRINT") " 

990 PRINT: COLORS:PRINTTAB(10)"- quellei{s 
} corde(s) ne pas":PRINT" jouer (";:COLORI 
:PRINTGRS (8); :COLORS: PRINT" au-dessus de 
lafles) corde(s))" 

600 PRINT:COLOR3:PRINTTAB(10)"- les barr 
é5(";:COLOR1:PRINTORS (6) ; : COLOR3: PRINT") 


610 PRINT: COLOR4: PRINT" Il vous fera ent 

endre l’arpège de 1’ accord,puis l’acc 

ord joué de plus en plus vite." 

620 COLORI1:LOCATEO,23:PRINT"FRAPPER *’P? 

POUR TOURNER LA PAGE":A$=INPUTS (1): IFA$= 

“P"6OTOb23ELSE620 

623 CLS:SCREENO, 1,0: PRINT: PRINT: PRINT" 
Si votre ordinateur est relié à une ia 

prisante possédant la recopie d’écran,vo 

us avez la possibilité de conserver le 

s dessins des accords." 

625 PRINT:PRINT:PRINT:COLOR4:PRINT"DESIR 

EZ-VOUS CETTE OPTION ?":R$=INPUTS# (1): IFR 


TEO N°14 - MAI 1987 
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LL 4 


$="O"THENGE=1 
630 CLS:SCREENO,S,2:PRINT: PRINT" Voici 
la liste des accords qui vous sont pro 


posés:" 

640 LOCATE10,5:PRINT"DO DÜm DO 
ji 

650 LOCATE10,7:PRINT'RE REm RE 
7 el 

660 LOCATE10,9:PRINT"MI Ma MI 
sd 

670 LOCATE10,11:PRINT"FA Fâm F 
A7" 

680 LOCATE10,13:PRINT"SQL 
QL7" 

690 LOCATE19,15:PRINT'LA LA L 
A7" 

700 LOCATE10,17:PRINT"SI Sa 5 
17 

710 LOCATE{9,20:COLOR4: INPUT"CHOISISSEZ 

VOTRE ACCORD"; A$:CLS:RESTORE770 

720 FORX=1TO21:READN, N$: IFN$=A$GOTO730EL 
SENEXT 

730 ONN 60T0780,960,1070,1180,1290,1390, 
1500,1540,1580,1680,1790,1840, 1890,2000, 
2050,2160,2330,2440, 2480, 2860, 2840 

740 “AHÉIEHNNTNENTE 

730 *YDATAS ACCORDSH 

760 “HIFI 

770 DATAÏ,D0,2,D0n,3,D07,4,RE,5,REn, 6,RE 
7,7,M1,8,M1n,9,M17,10,FA,11,FAm,12,FA7, 1 
3,S0L, 14, 60La, 15, S0L7, 16, LA, 17,LAn, 1B,LA 
7,19,51,20,51a,21,S17 


FJAS. 


21 
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780 “HHHNENITENENIX 

790 *#ACCORD DE DO 

800 “ARRETE 

810 RESTORE15030:C0L=1 : 0=0: 60SUB5000: 605 
UB11000:60SUB12000: IFR$&="0"GOTOB40 

820 IFR$="N"THENGOSUB1 3000 

830 6OSUB12000 

840 RHNNIEEANEIENNEEET 

850 ‘2ème ACCORD DE DDt 

860 "ARRINISIIENNITENEET 

870 RESTORE15040: 0=1:6=7 

880 60SUB5000:60SUR1 1000: 60SUB12000: IFR$ 
="0"60T0920 

890 IFR$="N"THENGOSUB1 5000 

900 60SUB12000 

910 HÉXINNENTENNENTNIES 

920 ’#3ème ACCORD DE DDY 

930 ARENENNINTENINIEL 

940 G=1:6=17:RESTORE 15050 

950 60SUB5000: 60SUB1 1000: 6OSUB1 3000 

960 "HEIRIINTENTENX 

970 *#ACCORD DE DOnt 

980 *HAIIHENTENIIET 

990 Q=1:6=7:C0L=1:RESTORE 15060 

1000 G0SUB5000:GOSUB11000: 60SUB12000: IFR 
$="0"60T01030 

1010 IFR$="N"THENGOSUB1 3000 

1020 60SUB12000 

1030 *HÉIAITIENNINENNENANE 

1040 *#2ème ACCORD DE DOai 

1050 "HÉNIÉENITASNNITENTT 

1060 G=0:RESTORE15070: 60SUB5900: GOSUB1 10 
00:60SUB1 3000 

1070 “HART 

1080 *#ACCORD DE DO74 

1090 *AHANINENTENIENT 

1100 G=0:RESTORE 13080: COL=1 : GOSUB5000: 60 
SUB11000:G0SUR12000: IFR$="0"60TO{ 130 
1110 IFR$="N"GOSUB1 3000 

1120 GOSUB12000 

1130 "HAINE 

1140 ’#2ème ACCORD DE DO74 

1150 "ARENA 

1160 @=2:6=11:RESTORE 15090 

1170 60SUB3000: GOSUR1 1000: 6OSUB15000 
1180 HHIHIENIEENET 

1190 ‘ACCORD DE REX 

1200 HIHÉTITIEENNNX 

1210 RESTORE15100:C0L=2: 0=0: G0OSUB3000: 60 
SUB11000:60SUB12000: IFR$="0"GOTO1240 
1220 IFR$="N" THENGOSUB1 5000 

1230 60SUB12000 

1240 HNTANSÉNINNNNENEE 

1250 ‘2ème ACCORD DE REX 

1260 “HHHINIINITITEINRENX 

1270 Q=1:6=11:RESTORE15110 

1280 GOSUR5000: 60SUB{ 1000: GOSUB 1 3000 
1290 "HER 
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1300 ACCORD DE REnt 

1310 *HINENIEIININEE 

1320 RESTORE15120:C0L=2: 0=0: 60SUB3090: 60 
SUB11900:60SUR12000: IFR$="0"60TC1350 
1330 IFR$="N"THENGOSURI 3000 

1340 6OSUB12000 

1350 “HISATIINITNINNENENNE 

1360 *’#2ème ACCORD DE REnt 

1370 *HENINITNINIENINENNE 

1380 G=0:RESTORE15130: 60SUB5000: 6OSUB110 
00:60SUB13000 

1390 "HÉREIRENETNIEN 

1400 *YACCORD DE RE7 

1410 HHTYENINENINNET 

1420 RESTORE15140:C0L=2: 9=0: 60SUB3000: 60 
SUB11000: 60SUB12000: IFR$="0"60T01450 
1450 IFR$="N" THENGOSUB1 3000 

1440 6OSUB12900 

1450 "HEIN 

1460 ’#2ème ACCORD DE RE74 

1470 *HHNIRINENNNENITITENS 

1480 G=2:6=15:RESTORE15150 

1490 60SUB5000: 60SUB1 1000: GOSUB13090 
1500 *HHRHENEHEININT 

1510 “ACCORD DE AI 

1520 HIHI 

1530 RESTORE15160:C0L=3: 0=0:G0SUB5000: 60 
SUB1 1900: 60SUB1 3000 

1540 HHFITITNNNEN 

1550 ACCORD DE MIat 

1560 *AHIIHIEINIINNI 

1570 RESTORE15170:C0L=3: 0-0: G0SUB5000: 60 
SUB11000:GOSUB1 3000 

1580 "HHIHHNENIEENEN 

1590 ACCORD DE MI7t 

1600 *HITITINITIEINN 

1610 RESTORE15180:COL=3: 0=0: 60SUB5000: 60 
SUB11000:60SUB12000: IFR$="0"60TC1640 
1620 IFR$="N"THENGOSUB1 3000 

1630 6OSUB12000 

1640 *HHAAITIENIENTANTNANNT 

1650 ’f2ème ACCORD DE MI7H 

1660 *AHIITIANNINIEITINITS 

1670 Q=0:RESTORE 15190: 60SUB5000: GOSUB1 10 
00:605UB13000 

1680 “HÉREREENEETIR 

1690 *#ACCORD DE FAf 

1700 “HEIN 

1710 Q=1:6=3:C0L=4:RESTORE15200 

1720 60SUB5000: GOSUB1 1000: 60SUB12000: IFR 
$=" "60701750 

1730 IFR$="H"THENGOSUR1 3000 

1740 6OSUB12900 

1750 “HIRINEHINININNNIEE 

1760 ‘2ème ACCORD DE FAH 

1770 "HININENINENTESEINE 

1780 Q=3:6=3:RESTORE 15210: G0SURS000: GOSU 
B110600:60SUB135000 
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1790 HN 

1800 *#ACCORD DE FAnt 

1810 "HR 

1820 G=1::6=3:C0L=4:RESTORE15220 
1830 6OSUB5000: 6OSUR1 1000: GOSUR1 3000 
1840 HHÉEIRENENENENT 

1850 “ACCORD DE FA71 

1860 HÉTHLIENENEENRE 

1870 9=1:6=3:C0L=4:RESTORE 15230 

1880 60SUB5000:G60SUB1 1000: 60SUR13000 
1890 *HINEIIEENENEX 

1900 *#ACCORD DE SOLH 

1910 "HIHI 

1920 RESTORE15240:C0L=5: 0=0: 60SUB5000 : 60 
SUB11000:60SUB12000: IFR$="0" 60701950 
1930 IFR$="N"THENGOSUB1 3000 

1940 GOSUB12000 

1950 “HAENIEENNÉNINENEEEE 

1960 ‘2ème ACCORD DE SOL 

1970 ÉNIENENNNENIRENNNE 

1980 G=1:6=7:RESTORE15250 

1990 60SUB5900: 60SUR1 1000: 6OSUB1 3000 
2000 “HSE 


2010 *HACCORD DE SQLat 
2020 *ANEITEENIINANEE 


2030 Q=1:6=7:COL=5:RESTORE15260 

2040 60SUBS000: GOSUB 11000: 60SUR13000 
2050 HHIHHRNINETNNNE 

2060 ‘ACCORD DE SOL74 

2070 "HHNHIENEANEENEE 

2080 RESTORE19270: COL=5: G=0: 60SUB5000: 60 
SUB11000:60SUB12000: IFR$="O"GOTO2110 
2090 IFR$="N"THENGOSUB1 3000 

2109 6OSUB12000 

2110 "HIHI 

2120 *Y2ème ACCORD DE SOL71 

2150 “HIT 

2140 Q=1:6=7:RESTORE15280 

2150 GOSUBS000: GOSUB1 1000: 60SUR1 5000 
2160 “HIER 

2170 *#ACCORD DE LAN 

2180 "HTHIENENTINT 

2190 RESTORE15290: COL=6:0=0: GOSUBS000: 60 
SUB11000:G0SUB12000: IFR$="0"60T022230 
2200 IFR$="N"THENGOSUBI 3000 

2210 6OSUB12000 

2220 *HIHIIIIENNANENENNEE 

2250 *#2ème ACCORD DE LA 

2240 HEIN 

2250 Q=1:6=11:RESTORE15300 

2260 GOSURS000: GOSUB 11000: 6GSUB12000: IFR 
$="0"60T02290 

2270 IFR$="N"THENGOSUB1 3000 

2280 GOSUBI2000 

2290 ‘HONENNENTENENENN 

2300 ‘#3ème ACCORD DE LAÏ 

2310 HAINE 

2320 0=3:6=11:RESTORE1S3 10: 60SUBS000: 605 


UB11000:60SUB13000 

2330 ‘tttttttittnnttt 

2340 ‘ACCORD DE LAat 

2350 "HHHAtNNNNEEARTS 

2360 RESTORE15320: COL =6: 0=0: 60SUB5000: 60 
SUB11000:60SUB12000: IFR$="0"G0TO2390 
2370 IFR$="N"THENGOSUB1 3000 

2380 60SUB12000 

2390 HNIENNANENANITETEE 

2400 *#2ème ACCORD DE LAnt 

2410 "ANIININENEANENNNEEEX 

2420 Q=1:6=11:RESTORE15330 

2450 60SUB5000: GOSUB1 1 900: 60SUB13000 
2440 ‘titttttttattttt 

2450 ?#ACCORD DE LA7t 

2460 ’Hitittitttnntnt 

2470 RESTORE 15340: COL =6: 0=2: 6=5: G60SUB500 
0: 60SUB1 1000: GOSUB13000 

2480 *HiHtINEtREER 

2490 *#ACCORD DE SIt 

2500 “tittttttttnntt 

2510 Q=1:6=5:C0L=7:RESTORE 15350 

2520 60SUB5000: 60SUB1 1000: 60SUB12000: IFR 
$="0"60T02550 

2530 IFR$="N"THENGOSUR1 3000 

2540 60SUB12000 

2550 *AHHAEINANANTNNEENTS 

2560 *#2ème ACCORD DE SIt 

2570 "ARIANANIAENIAINEENT 

2580 0=0:RESTORE15360: 60SUB5000 : GOSUR1 10 
00:60SUB12000: IFR$="0"GOTD2810 

2590 IFR$="N"THENGOSUB1 3000 

2600 6OSUB12000 

2610 *#RRENNENNTANENRES 

2620 ‘13ème ACCORD DE SIt 

2630 “#ttitttttittitnnttt 

2640 0=1:6=15:RESTORE 15370 

2650 60SUB5000:60SUB1 1000: 6OSUE1 3000 
2660 *HRHHHIRANIERATS 

2670 *#ACCORD DE SIat 

2680 *HYHHHNttN ER 

2690 0=1:6=5:C0L=7:RESTORE 15380 

2700 60SUR5000: 60SUB1 1000: 60SUB12000: IFR 
$="0"60T02730 

2710 IFR$="N"THENGOSUB 13000 

2720 60SUB12000 

2730 "HANENANNASENAETANENR 

2740 ’t2ème ACCORD DE Sat 

2750 'ANIIENIENNANNENLENTS 

2760 0=0:RESTORE 15399: 60SUES000 : GOSUE1 10 
00:60SUB12000: IFR$="0"G60TO2790 

2710 IFR$="N"THENGOSUB13000 

2780 60SUB12000 

2790 "RANNARENENIANNENAREE 

2800 *f3ème ACCORD DE SImt 

2810 SHRANANANNTENNNNEE 

2820 Q=1:6=15:RESTORE15400 

2830 60SUB5000: 60SUB1 1000: 60SUB1 3000 
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2840 *Hitttitettitttt 

2850 *#ACCORD DE SI7t 

2860 ‘Hittititttitttt 

2870 RESTORE15410:C0L=7: 0=0: 60SUR5000 : 60 
SUB11000: 60SUB12000: IFR$="0"60T02900 
2880 IFR$="N"THENGOSUR1 3000 

2890 EOSUB12000 

2900 *ANSENEHANENIIINNEN 

2910 *#2ème ACCORD DE S174 

2920 "HHNAANANENNINIENEES 

2930 RESTORE 15420: G=2: 6-9: 60SUB5000: 60SU 
B11000:60SUB12000: IFR$="0"60TC2960 

2940 IFR$="N"THENGOSUB13000 

2950 60SUB12000 

2960 “ANIAEANIEINANENNNNT 

2970 ‘3ème ACCORD DE SI7t 

2980 ‘HitNNNNItININAENIES 

2990 0=1:6=15:RESTORE 15430 

3000 60SURS000: 60SUB1 1000: GOSUB13000 
5000 “AItENIEENINIEEEEEE 

5010 BOUCLE PRINCIPALEX 

5020 ’HtttÉHANIITENIENIE 

3050 GOSUR?000: IFG=1THENGOSUB16000ELSE LE 
G=2THENGOSUB17000ELSEIFQ=3THENGOSUR1 7500 
5035 60SUB10000:H=14: V=22 

5040 COLORCOL:LOCATE21,5:ATTRE, 1:PRINTA 
$:ATTREO,0:P$="" 

5050 FORK=1TO6:READZS, À, Y:COLORI 


5075 

5085 1F1=060705075 

5070 LOCATEX, Y:PRINTGRS (7) 

5075 PLAY'L36 "+478 

5080 T=LEN(Z$):M$=MID$ (28,3, T): IFRIGHTS 
1$,2)="S0"THENMS=" SQL" 

5090 IFRIGHTS(2$,3)="S0#"THENMS="SQL 4" 
5095 IFRIGHT$(2$,1)="P"THENMS="--" 

5100 LOCATEH, V:PRINTMS;" "5: IFMS="SOL#"T 
HENH=H+5EL SEH=H+4 

5105 60SUBS00:P$=P$+2$:NEXT 

5110 PLAY"L96"+P$: GOSUB500 

5120 PLAY"L48"+PS: GOSUBS00 

5130 PLAY"L12"4P8: GOSUB500 

5140 FORW=1702:PLAY"L2"+#P#: 60SUBS00:NEXT 
5150 RETURN 

9000 *#ittt4tt 

9010 * MANCHES 

9020 °tititttt 

9030 LOCATEO, 0, 0: ATTRBO, 0: SCREEN7, 0, 0:LI 
NE (8,0)-(8,8):LINE-(16,18):LINE-(16, 239) 
:LINE(9,0)-19,8):LINE-(17,16):LINE-(17, 2 
39) 

9040 LINE(71,0)-(71,8):LINE-(83,16):LINE 
-(63,239):LINE(70,0)-(70,8):LINE-(82, 16) 
:LINE-(82,239) 

9050 FORY=16T0192STEPI&:LINE (16, Y)-(63,Y 
JeNEXTILINE (16,15)-(63,15) 

9060 FORX=20T060STEPB:LINE (X, 17)-(X, 239) 


TEO N°14 - MAI 1987 


3060 IFY=1THENLOCATEX, 1: PRINTGRS (8) : GOTO 





:NEXT 

9070 FORI=1TO1I:LOCATES, (241)+{:PRINTI:N 

EXT:LOCATEZ20, 10,0 

9080 RETURN 

10000 ’ttitttttt 

10010 *IMESSAGEY 

10020 “HIYHEERT 

10030 LOCATE1S,S:COLOR6:PRINT'Ecoutez je 

s notes qui:LOCATE14,11:PRINT"composen 

t cet accord':RETURN 

11000 *HAARIEIEEENNNNT 

11010 “MEME ACCORD 74 

11920 HEIN 

11930 LOCATEÏS, 9:PRINTGPC (22) :LOCATEUS, 1 
1:PRINTSPC (21): IFGG6={THENGOSUE 18000 :LOCA 

TE13,9:PRINTSPC (22) :LOCATE1S, 11: PRINTSPC 
121) 

11040 LOCATEL4, 17:COLOR3: PRINT" Voulez-vo 
us entendre":LOCATELS, 18:PRINT"de nouvea 

u cet accord ?":LOCATE22,19:PRINT'O/N':R 
$=INPUT$(1) 

11050 IFR$="O"THENCLS: 60710730 

11060 IFR$="N"THENRETURN: 

11070 GOTC11040 

11080 IFR$="0"60TO740 

11090 IFR$="N"THENGOSUB13000 

11100 60SUB12000 

12000 “HYHYETENEEERET 

12010 ?SAUTRE FACON 74 

12020 “HHHHNENENEEEEE 

12030 LOCATE1S,17:PRINT" Voulez-vous voir 
une autre":LOCATEI1,!8:PRINT"façon de 

aire cet accord ?":R$=INPUT$ (1) :CLS:RETU 
EN : 
13000 *HHRIRENENNNNNTÉ 

13010 *#AUTRE ACCORD ?t 

13020 *AXHNAXENITINENNX 

13030 LOCATE1S,17:PRINTSPC(26):LOCATE, 
18:PRINTSPC (27) :LOCATE{3, 17: PRINT" Voulez 
-vous étudier":LOCATE4,18:PRINT'un autr 
e accord ?":R$=INPUTS (1): IFR$="CQ"60TO630 
13040 IFR$="N"60T020000 

13050 G0T013030 

15000 *HHINEHNTEREEEI 

15019 *AYDATAS ACCORDS+ 

15020 ‘Hititittititttt 

15030 DATAO3S0, 2,7,04D0,3,7,04MI,4,5,04S 
0,0,0,05D0,6,3,05MI,0,0 

15040 DATAD350, 0,0, 04D0, 0,0,0450,4,11,05 
D0,5,11,05M1,6,11,0550,0,0 

15050 DATAD3D0, 0,0, 0350, 3,21, 04D0, 4, 21,0 
4M1,5,19,0450,0,0,05D0, 9,0 

15060 DATAD3S0, 0, 0,04D0,0,0,0450, 4, 11,05 
00,5, 11,05RE#,6,9,0560,0,0 

15079 DATA P,2,1, P,3,1,0460,4,11,05 
D0,5,!1,05RE#,6,9,0550,7,7 

15980 DATASIMI, 0,0,04D0,3,7,04MI,4,5,04L 
4,5, 7,05D0,6,3,05MI,0,0 
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15090 DATA P,2,1, P,3,1,0450,0,0,05D 
0,0,0,05M1,0,0,0581b,7,13 

15100 DATACSFAN 2,5, OLA, 0,0, OARE, 0,0,04 
LA,5,5,05RE,6,7,05FA4,7,5 

15119 DATACZLA, 0,0,04RE, 0,0, D4LA, 4, 15,05 
RE,5,15,05FA#, 6,15, 0SLA, 0,0 

15120 DATA  P,2,1,03LA,0,0,04RE, 0,0, 04L 

,5,5,08RE,6,7,05FA,7,3 

15120 DATA P,2,1,  P,3,1,04LA,4,15,05 
RE,5,15,05FA,6,13,0SLA,7,11 

15140 DATAO3FA#, 2,5,03LA, 0,0, 04RE, 0,0,04 
LA,5,5,0500,6,3,05FA8,7,5 

15150 DATA  P,2,1, P.3,1,03LA,0,0,D4R 
E,0,0,04FA#,0,0,05D0,7, 17 

15160 DATAOSMI,0,0,0381,3,5,04MI, 4, 5,045 
0#,5,3,0481,0,0,05MI,0,0 

15170 DATAO3MI,0,0,0381, 3,5, 04MI,4,5, 045 
0,0,0,0481,0,0,05M1,0,0 

15180 DATAO3MI,0,0,0381,3,5,04MI,4,5,045 
04,5,3,05RE,6,7,05MI,0,0 
15190 DATAOZMI, 0,0,0351,3,5 
04,5,3,0451,0,0,05MI,0,0 
15200 DATAO3FA, 0,0,04D0,3,7,04FA,4,7,04L 
à,5,5,0500,0,0,05FA, 0,0 
15210 DATA  P,2,1,04D0,3,7,04FA,4,7,04L 
a,5,5,0500,0,0,05FA,0,0 
15220 DATAOZFA, 0,0, 0400,3,7,04FA, 4,7,045 
0#,0,0,05D0,0,0,05FA,0,0 
15230 DATAO3FA, 0,0, 0400, 3,7, 04RE#, 0, 0, 04 
LA,5,5,05RE,6,9,05FA, 0,0 
15240 DATAO3S0, 2, 7,0351, 3,5, 04RE, 0, 0,045 
0,0,0,0451,0,0,0590,7,7 
15250 DATA3S0,0,0,04RE,3,11,0450, 4, 11,0 
451,5,9,05RE, 0,0, 0590, 0, 0 
15260 DATAO3SO, 0,0, 04RE, 3, 11,040, 4,11,0 
451b,0,0,05RE,0,0,0590, 0,0 
15270 DATAD3S0, 2,7,0381,3,5,04RE, 0, 0,045 
0,9,9,0451,0,0,05FA,7,3 
15280 DATAO3S0, 0, 0, 04RE, 3, 11,04FA, 0, 0,04 
51,5,9,05FA,6,13,0590,0,0 

15290 DATAOZMI,0,0,03LA,0,0,04MI,4,5,D4L 
6,5,5,05004,8,5,05MI,0, 0 

15300 DATAOLA, 0,0, AMI, ,3,15,04LA, 4,15,0 
5004,5,13,05M1,0,0,05LA, 0, 0 

15310 DATA  P,2l, QAMI,3, 15,DALA, 4, 15,0 
5004,5,13,09M1,0,0,05LA,0, 0 

15320 DATAOZMI, 0,0, 03LA, 0,0, 04M1,4,5,04L 
4,5,5,0500,6, 3, 05M1,0,0 

15330 DATAO3LA,0,0,04MI,3, 15, D4LA, 4, 15,0 
5D0,0,0,05M1,0,0,05LÀ,0,0 

15340 DATAO3MI,0,0,03LA,0,0,04M1,0,0,04L 
A,0,0,05008,0,0,0550, 7,7 

15350 DATAOSFAN, 0, 0,0351,0,0,04FA#,4,9,0 
451,5,9,05RE4,6, 9, 05FA4, 0,0 

15340 DATA  P,2,1,  P,3,1,04FA#,4,9,04 
51,5,9,05RE8,6,9,05FA#,7,5 

15379 DATAO3S1, 0,0, 04FA,3,19,0451,4,19, 
OSRE,5,17,05FA8,0,0,0581,0,0 


 D4RE, 0, 0,045 
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9380 DATAOSFA#,0,0,0351,0,0,04FA#,4,9,0 
451,9,9,09RE,6,7,05FA#,0,0 

153909 DATA P,2,1, P,3,1,04FA#,4,9,04 
51,5,9,00RE,6,7,09FA#,7,5, 

15409 DATAD3S1,0,0,04FA#,3,19,0451,4,19, 
OSRE,0,0,05FA#,0,0,0561,0,0 

15410 DATADOSMI,0,0,0351,3,5,04RE#, 4,3,04 
LA,5,5,0451,0,0,05FA#,7,9 

15420 DATA P,2,1, P,3,1,04FA#,0,0,04 
S1,9,0,05RE#,0,0,05LA,7,11 

15430 DATAD3S1,0,0,04FA#,3,19,04LA,0,0,0 
ORER, 5,17, 09LA,6,21,0551,0,0 

16000 HHIHHIIINIET 

16010 *IGRAND BARRER 

16020 *HHHENIRERENIT 

16030 COLORI:LOCATE?,6:FORI=1T06:PRINTER 
$(6)3:NEXT: RETURN 

17000 ’xtittitittitt 

17010 *#BARRE MOYENI 

17020 HIHI 


17030 COLOR! :LOCATEA, 6:FORI=1T04: PRINTER 


$(6);:NEXT:RETURN 

17500 HAINE 

17510 *#PETIT BARREN 

17520 ‘Hititiititttt 

17530 COLORI:LOCATES, 6:FORI=1T02: PRINTER 
$(6);:NEXT:RETURN 

18000 ’tritittttttit 

18010 *#IMPRIMANTE?{ 

18020 ‘Hittisittntnt 

18030 LOCATE1S,9:PRINTSPC(22):LOCATE1S, { 
{:PRINTSPC(21) 

18040 LOCATE13,9:COLORI:PRINT"Voulez-vou 
s cet accord':LOCATEIS, {1:PRINT"sur l’is 
priaante ?" 

18050 R$=INPUT$(1) : IFR$="N"GOTO18060 
18055 IF(R$="O"ANDG6=1 ) THENLOCATEÏ3,9:PR 
INTSPC(22):LOCATE3,11:PRINTSPC(18):EXEC 
&HDF3A: RETURN: ELSELOCATE14, 17: COLOR5:PRI 
NT"DESOLE, VOUS N'AVIEZ":LOCATE13, 18:PRIN 
T'PAS PRIS CETTE OPTION." 

18060 GOSUR500: RETURN 

20000 "HARHITERERENENNNNNINATEIEAREET 
20010 *ATIRAGE ALEATOIRE POUR SORTIEH 
20020 *HHRAAEESENENEANERNENENTENNER 
20030 SCREEN7,7,7:ATTRAI,!:LOCATELS,8:CD 
LOR{:PRINT"PRESSEZ":LOCATE17, 12: COLORO:P 
RINT'UNE ": LOCATE{4, 16: COLORS: PRINT"TOUCH 
E":ATTREO, 0 

20040 U=RND:A$=INKEYS: IFA$=""60T020030 
20050 F=INT(RND#4):ONF G0T021000,22000,2 
3000, 24000 

21000 "HÉHINANEANIENANINNNT 

21010 ’tier MESSAGE DE FINI 

21020 *HÉHESÉHRNERENIIREEEET 

21030 CLS:SCREËNO, 2,5: PRINT: PRINT: PRINT: 
PRINT: PRINT: PRINT 

21040 PRINTTAB(5) "MAINTENANT, VOUS ALLEZ 
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POUVOIR": PRINT:PRINT 
21050 PRINTTAB(S5)"CONCURRENCER LAGOYA, VE 
PES QU":PRINT:PRINT 
21060 PRINTTAB(10)"YUPANQUI 1111..." 
21070 FORB=1106000: NEXT : 60T025000 
22000 "HRRARATIRERITNEENTE 
22010 ’t2ène MESSAGE DE FINI 
22020 'ARNINNNENNENENNE 
22030 CLS: SCREENO, 7,4: PRINT: PRINT: PRINT: 
PRINT: PRINT 
22040 PRINTTAB(2)"LA PROCHAINE FOIS NOUS 
ETUDIERONS" :PRINT 
22050 PRINTTAB(2)"PEUT-ETRE LA FLUTE OÙ 
LE CLAVECIN":PRINT 
22060 PRINTTAB(S)"EN ATTENDANT, BON COURA 
GE ET": PRINT 
22070 PRINTTAR(4)"TRAVAILLEZ BIEN VOTRE 
GUITARE." 
22080 FORB=1T06000:NEXT : 60 7025000 
23000 attittttattttttttttt 
23010 ’#3ème MESSAGE DE FINI 
23020 "ARSRENINENNENENNERE 
23030 CLS: SCREENI, 3, 0: PRINT: PRINT: PRINT: 
PRINT:PRINT: PRINT 
23040 PRINTTAB(S)"NE VOUS IMAGINEZ TOUT 
DE MEME":PRINT: PRINT: PRINT 
23050 PRINTTAB(4)"PAS QUE VOUS ALLEZ ETR 
E ENGAGE" :PRINT:PRINT:PRINT 
23070 FORE=-1T06000:NEXT : 60025000 
24000 "HRRÉREARENENANNENEEEX 
24010 ’Hème MESSAGE DE FIN 
24020 "ANNEITANNINNNNENNNEE 
24030 CLS: SCREEND, 1,0: PRINT: PRINT: PRINT: 
PRINT :PRINT: PRINT: PRINT 
24040 PRINTTAR(4) "VOILA.C'EST FINI.SI VO 
US VOULEZ" :PRINT: PRINT 
24050 PRINTTAB(4) "APPRENDRE LA TROMPETTE 
IL VA VOUS":PRINT:PRINT 
24060 PRINTTAB(8)"FALLOIR ATTENDRE LE PR 
OCHALN" : PRINT: PRINT 
24070 PRINTTAB(12) "PROGRAMME..." 
24080 FORB=1T06000:NEXT: 60 7025000 
25000 *tittitt 
25010 *ASORTIER 
25020 °titatitt 
25030 SCREENO, 0,0: ATTRBI, 1 
25040 LOCATEL7, 10:COLOR4:PRINT"F"; 
7:PRINT® 1"; : COLOR :PRINT"N" 
25050 V$="T1205L18REL32D004L 9LAL2PL 1BLAF 
AL32S0L 9FASOL 9P" 
25060 W$="OSL1BREL32D004LALAL2PL 1 BLAOSDO 
L32REL9P" 
25070 X$="04L 9LASOL32FAL 9REL 2PL 1BREDOL 24 
FA" 
25080 PLAYVS+H$+V$+1$ 
25090 ATTRBO, 0:LOCATEO, 20, 0: END 


:COLUR 
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PROGRAMMATION 
STRUCTURÉE ET BASIC 


L. Basic est souvent 
condamné sans appel 
comme un langage non 
structuré a priori. 
Réaffirmons tout d’abord 
que c’est le programmeur 
(pas le langage !) qui 
conçoit des programmes de 
façon structurée ou non. 


Les deux structures d'itération 
Elles s'expriment ainsi 


Tant que condition Faire 
séquence 
d'instructions 

Fin—Tant—Que 


Répeter 
séquences 
d'instructions 

Jusqu'à condition 


où la condition est une expression logique ne pou- 
vant prendre que deux valeurs : vraie ou fausse (et 
qui serait donc déclarée comme Boleen en LSE ou 
Boolean en Pascal). Il y a itération si la séquence 
d'instructions, exécutée un certain nombre de fois, 
permet de se rapprocher d’une solution; la valeur 
prise par la condition permet à la machine de savoi 
si le programmeur considère que la solution est 
atteinte : 

— dans une structure Tant Que la condition est éva- 
luée au début de la boucle ; sielle est fausse, on sort 
de la boucle sinon on exécute les instructions 
contenues dans la boucle puis on revient au début ; 
— dans une structure Jusqu'à la condition est éva- 
luée à la fin de la boucle qui est donc exécutée au 
moins une fois ; sielle est vraie, on sort de la boucle 
sinon on recommence. 

Traduites en Pascal, ces deux structures d'itération 
:s'écrivent : 


WHILE condition DO 
BEGIN 
séquence 
d'instructions 
END; 


REPEAT 


séquences 
d'instructions 
UNTIL condition; 


LSE ne dispose que de la première (avec renvoi à un 
numéro de ligne...) : 


FAIRE | TANT QUE condition 
"séquence 
d'instructions 
1 “fin de boucle en ligne /. 
Et voici maintenant l'écriture des structures d'itéra- 
tion en Basic 128 (ou 512): 


DO 

IF NOT condition THEN EXIT 
séquences 
d'instructions 

LOOP 


DO 
séquence 
d'instructions 
IF condition THEN EXIT 
LOOP 


La formulation est tout à fait indépendante des nu- 
méros de lignes, comme il est souhaitable pour une 
structuration bien lisible ; il est donc inutile d'indi- 
quer ces numéros dans les considérations géné- 
rales sur l'emploi de DO... LOOP (ils figureront par 
contre dans chaque réalisation particulière d'un 
programme). 

Remarquons bien sûr qu'on peut programmer les 
structures d'itération en Basic 1.0, à condition de 
faire appel à GOTO de si infamante réputation... 
mais parfois bien utile : 
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C- le Pascal — par exemple — impose, 
par ses multiples déclarations nécessaires avant 
d'entrer dans le vif du sujet, par sa nature même de 
langage compilé (le programe entier doit être pensé 
et écrit avant d'être exécuté), une structuration mé- 
thodique. Le Pascal a d’ailleurs été inventé pour 
apprendre à programmer. Mais il est vrai que les 
version modernes du Basic, outre la souplesse 
d'emploi d'un langage interprété, offrent des possi- 
biltés pour une structuration aisée. Le nouveau Ba- 
sic 128 (ou 512) des micro-ordinateurs Thomson 
permet ainsi la programmation élégante des struc- 
tures de boucles — et même plus — grâce à son 
instruction d'itération généralisée DO... LOOP. 

À propos des structures, examinons comment Ba- 
sic peut faire mieux que Fortran ou LSE et (presque) 
aussi bien que Pascal ! 


[IF NOT condition THEN GOTO m 
séquence 
d'instructions 

GOTO| 

m : Fin boucle TANT—QUE 


|: début boucle JUSQU'A 
séquence 
d'instructions 

IF NOT condition THEN GOTO |. 


La répétition 

Comme son nom l'indique, la répétition permet de 
recommencer un traitement un nombre déterminé 
de fois ; on peut considérer qu'il s'agit d'un cas par- 
ticulier d'itération dans lequel on connaît d'avance 
le nombre d'exécutions de la boucle nécessaires 
pour atteindre le résultat. 


La répétition s'exprime ainsi : 


Pour index=début Jusqu'à fin faire 

séquence 

d'instructions 
Fin—Pour 
où index est un nombre (variable) initialisé à la va- 
leur début: ce nombre est incrémenté à la fin de la 
boucle : si sa valeur estalors strictement supérieure 
à fin on sort de la boucle, sinon on recommence. 
En BASIC, il s'agit de la classique boucle FOR (gé- 
néralement la seule implantée) : 
FOR index:=début TO fin 

séquence 

d'instructions 
NEXT 
La formulation en Pascal en est très proche : 
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PORTÉNS ETS: 


PÉTER 


| 

Fi 
pi. 
lu 
À 


TEDTRECS 


FOR index : = début TO fin DO 
BEGIN 


séquence 

d'instructions 

END: 

De que LSE fait toujours appel à un numéro de 

igne : 

Faire | Pour index <—— début Jusqu'à fin 
séquence 
d'instructions 

1° fin de boucle en ligne | 


Tout comme Fortran (où index, début, fin, passont 
des entiers) utilise une étiquette : 


DO | index= début, fin, pas 
séquence 
d'instructions 


1 C fin de boucle en ligne I. 

Remarques : 

@ en Pascal, index ne peut appartenir qu’à un type 
énuméré (entier par exemple) alors que le Basic 
admet un réel comme variable de boucle ; 

© Pascal peut travailler en incrémentant ou en dé- 


crémentant grâce à l'option DOWNTO (FOR index: 


=début DOWNTO fin DO ect); 

Basic peut utiliser un « incrément » non entier, posi- 
tif ou négatif grâce à l'option STEP. 

En Basic 128 (ou 512), l'instruction DO... LOOP 
offre bien sûr une autre possibilité de programmer 
la répétition qui pourra donc prendre les deux 
formes suivantes : 


FOR index=début TO fin STEP pas 
séquence 
d'instructions 
il 


index=début 


0 
IF index>fin THEN EXIT 
séquence 
d'instructions 
index=index+pas 
LOOP 


La deuxième forme ne présente pas d'avantage par- 
ticulier, si ce n'est de rendre plus clair le mécanisme 
de la répétition et la satisfaction de faire entrer 
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toutes les boucles dans le cadre unique DO... 
LOOP. 


Le choix 
L'alternative (choix entre deux possibilités et 2 seu- 
lement) s'énonce : 


SI condition ALORS séquence d'instructions 1 SI- 
NON séquence d'instructions 2 


ce qui se traduit en Basic (comme en Pascal) par : 


IF condition THEN séquence d'instructios 1 ELSE 
séquence d'instructions 2 


Un choix parmi N possibilités (N pouvant être supé- 
rieur à 2) constitue une extension appelée cas par- 


mi. 
Outre l'itération, l'instruction DO... LOOP du Basic 
128 (ou 512) permet de programmer un tel choix. 
Voici la traduction en Pascal de cette structure cas 
parmi : 


CASE critère OF 
valeur1: instruction 1; 
valeur2: instruction 2: 


valeurN: instructionN; 
END; 


où critère est une expression prenant ses valeurs 
dans un ensemble discret dont on envisage un sou- 
s-ensemble de N éléments; à chacun de ces élé- 
ments (valeurs) se trouve associé un choix sous 
forme d'une instruction. 


Et voilà la version Basic 128 (ou 512) de cette struc- 
ture de choix. 
DO 
DO 
00 
IF critère © valeur 1 THEN EXIT 
séquence d'instructions 1 


EXIT N 
LOOP 


IF critère <> valeur N-1 THEN EXIT 


TEO annonces 


Pour rédiger votre annonce, utilisez ce bon ; écrivez très lisiblement en majuscules. 


NOM Er ee Aer ons ete de Ce PÉAGM ER nn MES, Sur tn cie 
ATOS ET LM End SE D ASE 2 ONU à SANS TO ASTON SRE RS fer t R RRQ 
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séquence d'instructions N-1 
EXIT 2 


LOOP 
IF critère © valeurN THEN EXIT 
séquence d'instructions n 


EXIT 
LOOP. 


On notera la possibilité d'insérer pour chaque choix 
toute une séquence d'instructions. 

Pour programmer un choix parmi N en Basic 1.0, il 
faudrait : 

— utiliser une cascade de IF... THEN... ELSE... limi- 
tée par la longueur d'une seule ligne : 


IF critère=valeurt THENinstructiont ELSE IF crité- 
re=valeur2 THEN instruction? ELSE... IF critère 
valeurN THEN instructionN 


— ou bien, en évitant de passer en revue tous les 
autres cas dès qu’une des valeurs permises a été 
rencontrée : 


IF critère=valeur1 THEN instructiont: GOTO m 
IF critère=valeur? THEN instruction: GOTO m 


IF critre=valeurN THEN instructionN: GOTO m 
m ‘Fin cas parmi. 


Conclusion : 

Grâce à une instruction de contrôle presque «uni- 
verselle», le dernier Basic Microsoft diffusé par 
Thomson nous offre de riches possibilités de struc- 
turation. Aux programmateurs de jouer en structu- 


rant d'abord leur pensée ! 
L. SOURROUILLE 


Références : 
— Manuel Basic 128 (Thomson, Microsoft 


1985) ; 

— l'excellent livre de J. Arsac, Premières leçons 
de programation (CEDIC, 1980) ; 

— ouvrages de base sur Pascal, par exemple le 
livre de P. Lignelet, Pascal : norme ISO etexten- 
sions (Masson, 1983) ; 

— pour le LSE: LSE pour tous (EPI/CNDP 
1983). 





Coupon à retourner 
correctement rempli 
à l'adresse suivante : 
TEO 
5,7, rue de 
PAmiral Courbet 
94160 Saint Mandé 








REPAIRE 





Super Mouse 


La souris qui dessine 


Une souris qui dessine, on 
ne va pas en faire 

un fromage ! Ce programme 
en Basic 512 ou 128 permet 
le dessin et l'impression 

de votre oeuvre. 


Notice d'utilisation 


CRAYON: dessiner en 
& point forme, c'est-à-dire en vert. 


point fond : gommer. 


KW 


ABC : permet d'écrire avec 

le clavier. Pour se déplacer: 
ABC touches fléchées. Pour sortir de 

cette fonction : ENT" 

F1 : écrire en double largeur 

F2 : écrire en double hauteur 

F4: désactive F1 

F5: désactive F2 


ZONE : recopie une zone: 
1) pointer le bord supérieur gau- 
che, puis cliquer le bouton 
gauche de la souris ; 


2) pointer le bord opposé, puis 
cliquer; 

3) déplacer le rectangle, puis 
cliquer aux endroits de votre 
choix; 

4) pour sortir de cette fonction, 
cliquer le bouton droit de la 
Souris. 


PAINT : remplit une cour- 
be fermée avec le motif choisi 
dans PATTERN. 


0 


PATTERN: après avoir 
sélectionné cette fonction, cli- 
quer puis appuyer sur le carac- 
tère de votre choix. Pour les ca- 
ractères spéciaux, appuyer Sur 
les touches de fonction F1 à 


GOMME : dessiner en 


Dh EE 


00! S} 





F10. Après avoir appuyé Sur un 
caractère, la courbe est remplie 
avec celui-ci Pour sortir de cette 
fonction, taper ‘ENT avant d'ap- 
puyer sur une touche. 
Remarque : le motif de remplis- 
sage du moment est affiché en 
dessous des icônes, les motifs 
accessibles par les touches de 
fonction F1 à F10sontles motifs 
créés par le sous-programme 
MOTIFS. 


PSET : dessine point par 
point. 


LINE : trace un trait du der- 
nier point affiché au point cli- 
qué. 

Remarque: pour les fonctions 
suivantes, une pression sur le 
bouton droit de la souris, après 
la première pression sur le bou- 
ton de gauche, fera sortir de la 
fonction activée sans rien tra- 
cer. 


BOX : dessine des rectan- 
gles: pointer et cliquer deux 
sommets opposés. 


PARALLELOGRAM- 
ME : dessine des parallélo- 
grammes: pointer et cliquer 
trois sommets du parallélogram- 
me. 


CIRCLE : dessine des cer- 
cles: 1) pointer et cliquer le 
centre, 2) choisir le rayon puis 
cliquer. 


ELLIPSE : dessine des el- 
lipses. Voir CIRCLE. 
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1: inverse le dessin. Les 
points formes deviennent des 
points fonds, et vice-versa. 


A : efface le dessin. 


TOUCHES DE FONTIONS 


F1: LOAD: permet de 
charger un dessin. Répondre 
aux questions posées. 


F2 : SAVE : permet d'en- 
registrer une zone de dessin. 
Après avoir appuyé sur F2, poin- 
ter puis cliquer le sommet supé- 
rieur gauche (pour sortir : bou- 
ton droit). Pointer le sommet 
opposé (pour revenirau 1er som- 
met, cliquer le bouton droit), et 
cliquer, puis répondre aux ques- 
tions posées. 

N.B.: les dessins ainsi créés 
sont compatibles avec le trai- 
tement de texte Paragraphe. 


F3: IMPRIM: imprime 
le dessin affiché à l'écran. 


F4 : MOTIFS : ce sous- 
programme permet de redéfinir 
les caractères de remplissage, 
d'enregistrer ces caractères, et 
de les charger. Il crée des fi- 
chiers de suffixe .GR$. 


F5 : FIN : si vous répondez 
OUI à la question posée, l'en- 
tête du TOB s’affichera. 


N.B. : Super Mouse fonctionne 
aussi bien avec le lecteur de 
cassette qu'avec le lecteur de 
disquette, en Basic 512 ou 128. 
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REPAIRE 








50 CONSOLE 0,24,0,2,2:CLG:SCREEN 2,0,0:L 
OCATE, ,0 

60 PALETTE 1,4091:PALETTE 2,240:PALETTE 

3,15:PALETTE 5,19 

10 ? Se RE. 

80 ? MODE 3201200 en 4 COULEURS 

90 

100 COLORI,0:ATTRB 1,1:LOCATE 8,10:PRINT 
"SUPER MOUSE": :ATTRE 0,0:LOCATE 5,21,0:P 
RINT'"(c) BOURRET Lionel avril 1987":L 
OCATE 0,0,0:ATTRE 1:PRINT"TO8 T09 T09+": 
ATTRE 0,0 

110 CLEAR,,39 

120 DIM IMAGE%(16000),ICONES# (12) 

130 DIM ZONEZ(10000) 

140 DIM BN(11,9) 

150 ON ERROR 60T0 19800 

160 ICO=1:1IC02=7:ZK0=2:K0=2K0 

170 CCI=180:LL1=100 

180 EC=5:EL=5 

190 RES=CHR$(10)+STRINGS (2,8) 

200 PAT$=CHR$ (127): PATTERN PFAT$ 

210 TURI$="R128U8 R128U1 LODS Lé4D5 R128 
US LODS R128U5 R64D5" 

220 TUR2$="RODS R96U7 R9EDS R98D9" 

230 TURTLE 0,160,100, TUR2$ 





602 ? Definition des icünes 

604 * 

606 ’+tt CRAYON 

608 DEFGR$(0)=65,64,128,128,128,129,130, 
132 

610 DEFGR$(1)=252,2,33,81,153,37,73,145 
612 DEF6R$(2)=139,137,136,143,144,128,64 
AA 

614 DEFGR$(3)=33,85,129,1,1,1,2,252 

616 ICONES(1}=6R$10)+GR$ (1)+RES+6GR$(2)+ 
6R${3) 

ët6 ” 

625 ‘tt GOMME 

622 DEFGR#(4;=612, 64,1 


28,128,129,120, 132, 


! 28 


138 

624 DEFGR#(5)=292,2,1,249,25,41,73, 145 

628 DEFGR$(6)=145,190,162,163,190,128,64 
,63 

628 DEFGR#(7)=33,85,129,1,1,1,2,252 

630 ICONES(2)=6R$(4)+6R$ (5) +RES$+ER$ (6) + 

6R$i7} 

632 ‘tti ECRITURE: À B C 

634 DEFGR$S (8)=63,64,152,165,165,165,189, 

185 

636 DEFGR$(9)=252,2,109,41,41,41,41,201 

638 DEFOR$(10)=185,165,185, 185,185,165, b 

4,65 

640 DEFGR$(11)=41,41,41,41,41,199,2,252 

642 ICONES(3)=6R$(B)+6R$(9)+RES$+6R$ (10) 

+6R${11) 

644 *#tt DEPLACEMENT: GET-PUT 

646 DEFGR$(13)=63,64,128, 150, 144,128, 144 
,144 

bag DEFGR$(14)=252,2,1,217,1,9,9,1 

650 DEFGR$(15)=128,144,144,128,155,128,b 

4,63 

652 DEFGR$(26)=9,9,1,9,105,1,2,252 

654 ICONES(4)=GR$(15)+GR$(14)+RES$+GRS (1 

5)+6R$ (26) 

656 *’Ytt REMPLISSAGE: PAINT 

658 DEFGR$(27)=63,64,131,135,135,131,131 
190 

660 DEFGR$(28)=257,2,225,241,249,249,249 
, 249 

bb2 DEFGR$(29)=145,144,144,156,135,128,6 
4,63 

664 DEFGR$(30)=9,9,17,17,225,1,2,252 

bb ICONES(5)=6R$(27)+6R$ (28)+RE$+6R$ (2 

9)+6R$ (30) 

668 ‘tit MOTIF DE REMPLISSAGE: PATTERN 

670 DEFGR$(31)=63,64,135,152,145,146,144 
,136 

672 DEFGR$(32)=252 

7 

674 DEFBR$(33)=136,144,144,156,135,128, 6 

4,63 

b7b DEFGR$(34)=137,9,145,17,225,1,2,252 

678 ICONES(6)=6R$(31)+GR$(32)+RE$+GR$ (3 

3)+6R$(34) 

680 *Ytt ICONE POINT PAR POINT 

682 DEFGR£(35)=65,64,128,128,144,128,12 
,128 

684 DEFGR$(36)= 222454 LEFT 

b8E DEFGR$(37)= 128,144,128, 130,128, 128,6 

4,63 

8BB DEFERS (38) = POP ru na TP mere 

890  ICONES(7)=6R$(3 S)46R$(34)4RES+6RS (3 

7)+6R$(38) 

692 ‘fit ICONE LIGNES 

694 DEFGR$(39)=8T, 64,128, 128,128, 128,128 
,128 

698 DEFHR$140)=252,2,17,33,33,65, 85,129 


525223,17,201,41,73,13 
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698 DEFGR$141)=1 
4,63 
700 DEFGR$(42)=129,1,1,1,1,1,2,252 


28,129,129,130,130,132,8 


702  ICONES (B)=6R$(39)+6R$ (40) 4RES+BR$ (4 


1)+6R$(42) 
704 ‘fit ICONE RECTANGLES 
706 DEFGR$(43)=63,64,128,128,159,144,144 
144 
708 DEFGR$144=252,2,1,1,249,0,9,9 
710 DEFGR$(45)=144,144,144,159,120, 128,6 
4,65 
712 DEFERS (48) = 7147524941 22e 
714 ICONES(9)= =GRS (43) 4GRS (44) 4RES+GRS (4 
J)+6R$ (46) 
716 ’#ft ICONE PARALLELOGRAMMES 
718 DEFGR$(47)=63,64,128,128,131,132,132 
, 136 
720 DEFGR$(40)=252,2,1,1,253,9,9,17 
722 DEFORS(49)=136,144,144,191,128,128,6 
4,65 
724 DEFGR$(S01=17,53,33,193,1,1,2,252 
72 ICONES 10) 2688 (47) 4GRS (AB) +RES4GRS 
49)+6R$ (50) 
728 ’ttt ICONE CERCLES 
730 DEFGR$(51)=63,64,128,131,140,136, 144 
,144 
132 DEFGR$(52)=252,2,1, 
734 DEFER$(53)=144,144,1 
4,65 
736 DEFGR$(541=9,9,17,49,195, 1,2, 252 
738 ICONES(11)=6R$(S1)+6R$(52)+RES+ERS( 
J6)+6R$ (54) 
740 ‘tft ICONE ELLIPSES 
742 DEFGR$(59)=63, 64,128, 128, 129,135, 192 
,160 
744 DEFOR$(96)=252,2,1,1,1,225,25,5 
746 DEFGR$(57)=160,152,135,128, 128,128, 6 
4,63 
748 DEFHR$(9381=5,25,225,1,1,1,2,252 
750 ICONES (12)=6R$ (55) 46R$ (56) 4RES46RS ( 
97) +6R$ (58) 
855 ‘tft Motifs de remplissage---------- 
S7 DATA 255,299,295,299,293, 299,299, 20e 
860 DATA 170,85,170,85,170,85, 170,85 
865 DATA 73,73,132, 136, 144,73,41,68 
870 DATA 255,9,8,8,255,128,128,128 
75 DATA 8,54,193,0,96,155,4,0 
880 DATA 255,128,128,129,128,128,128,12 
885 DATA 36,146, ,73,36,146,73,3 56,146 
888 DATA 9,1,2,3,4,5,6,7 
890 DATA 8,9: 10, 1112,18,14,18 
892 DATA 15,17,19,19,20,21,22,25 
909 FOR I= j TO 10 
10 READ EN(I,1),BNEI, 2) ,BNIT 33 BNII/ 
VBNII,S1,BNUT, 8), ENT, 7), EN T,8) 
920 DEFGRS(IS+II=ENI, Li, BNÉT, 23, SNiT,E 
YBNEI 4), BNII,S,GNGT, ENT, 7), EHII,E 


j 
ü 


193,49,17,9,9 
136,140,131,128,6 


x 





LSECOLOR?, © 
1020 ON ! GOSUR 1500,1510,1520, 1530, 154 
0,1550, 1560, 1570, 1580, 1590, 1800, 1810 


1030 NEXT:COLOR 2,0 





HO nee AFFICHAGE Fi--iFs ------- 
1090 FOR I=i TD 5 

1960 ON I GOSUB i860,1820,1840,1860,188 
Q 

1070 NEXT 

1080 LINE(0,7)- fe 0,7),3 

HO SeReSr OTIF DE REMPLISSAGE ---- 


1100 LOCATE |, 4 

1110 PRINT PATS4PATS: RES; PATS+PATS; 

1190 RETURN 

1200 HÉÉRENENANENINENENNATTNNENNENENET 
1210 *# ROUTINE D’AFFICHAGE DU CURSEUR 
1220 HHIEIINNNNNNNENNENNNTENERNEEES 
1300 WINDOW (0,8)-1319,199):SHO4 1:00 
1310 INMOUSE C,L 

1320 TURTLE 0,C,L 

1330 IF MTRIG(O) THEN IF C>32 THEN WIN 
DOW (32,8)-(319,199):EXIT ELGE EXIT 


11340 R$=INKEYS:IF R$<}"" THEN EXIT 


1350 LOOP 

1360 IF R$C)"" THEN 20000 
1380 GOTO 1900 

1496 * 
1497 ? 
UT ORNE DE 1 2 
{499 ’No 1 

1500 LOCATEO, 2, 0:PRINT ICONES (1) ; : RETURN 
1509 No 2 

1510 LOCATEZ, 2, 0: PRINT ICONES (2) ; :RETURN 
1519 ‘No 3 

1520 LOCATEG, 4,0:PRINT ICONES (3) 
1529 No 4 

1530 LOCATEZ, 4,0: PRINT ICONES (4) ; :RETURN 
1539 ‘No 5 





Routine d'affichage des icônes 


; RETURN 


1540 LOCATEO, 6,0: PRINT ICONE$ (5) ; : RETURN 
1549 ’No 6 
1550 LOCATEZ,6,9:PRINT ICONES (6) ; : RETURN 


1559 No 7 
1560 LOCATEO, 4, 0:PRINT ICONE# (7) ; : RETURN 
1569 ’No 8 


1570 LOCATEZ,8,0:PRINT ICONES$ (8); : RETURN 
1578 No 9 
1580 LOCATEO, 10,0:PRINT ICONES (9) : :RETUR 


N. 

1589 No 10 

1590 LOCATE2, 10,0: PRINTICONES (10) ; :RETUR 
N 


1399 ‘No !i 
1800 LOCATED, 
N 

1809 *No 12 
1610 LOCATEZ, 12,0:PRINTICONES (12) : :RETUR 
N 

1796 

1797 * AFFICHAGE DES OPTIONS 

1798 ? RHONE. 
1799 *Yit Touche Fi: LOAD 

1800 LOCATE?, 9,9: PRINT"LOAD"; : RETURN 
1819 ‘tit Touche F2: SAVE 

1820 LOCATE9, 0, 0: PRINT "SAVE": : RETURN 
1839 ‘tit Touche F3: IMPRESSION 

1840 LOCATE17,0,0:PRINT"IMPRIM";: RETURN 
1859 ‘tt Touche F4: MOTIFS 
1860 LOCATE?6,0,0:PRINT'MOTIFS"; 
1879 *itt Touche F5: FIN 

1880 LOCATE35,0,0:PRINT"FIN"; : RETURN 
1900 *HÉNIENENÉLENENINETENNENTENNNENIEI 
1910 ’# TRAITEMENT DES OPTIONS Li 
1920 ?HXÉÉENENENÉENEENEEENENNENTENENTENE 
1930 IF C<32 AND L<112 THEN 60T0 2100 
1950 IF C<32 AND L>111 THEN 1300 
1970 WINDOW (32,8)-1319,199) 

1980 SHON O:0N ICO2 GOSUB ,,,7200, 
600,5000,3100,5300,3900,5500, 3700 
2000 60TO 1300 

2100 *#tttttit CHOIX OPTIONS HHXKENTTIX 
2110 SHOW 0 

2150 X=INT(C/16)+1:Y=INT(L/16) 

2160 IF X=2 THEN CHO=24Y ELSE CHO=24V-1 
2180 IF CHO=1 OR CHO=2 OR CHO=3 THEN ON 
ICO GOSUB 1500,1510, 1520: IC0=CHO:COLORO, 
2:0N ICO GOSUB 1500,1510,1520:0N ICO 608 
UB 4000,4100,8000:G0T0 2300 

2190 COLOR2,0:0N IC02 GOSUB,,,1530,1540, 
1550,1560,1570,1580,1590,1600,1610 

2200 IC02=CHD 

2210 COLORO, 2 

2220 ON IC02 60SUB 1500,1510,1520,1530,1 
540,1950,1560,1570,1586,1590,1690, 1610 
2300 COLOR 2,0 

2310 SHON ! 

2320 60T0 1300 

4000 OPTION 1:POINT FORME 
4010 KO=ZK0 

4020 RETURN 

4106 ?_ OPTION 2:60MME_ (FOND) 

4110 KO=-4 

4120 RETURN 

3000 ?_ OPTION 7:POINT PAR POINT 
9010 PSETIC,L),KO:CCI=C:LLI=L 

9020 RETURN 

5100 ? OPTION 8:LIGNES + 
9110 LINE(CCI,LL1)-(C,L) ,KO:CCI=C:LLI=L 
5120 RETURN 

5200 * OPTION S:PAINT 


12,0: PRINTICONES (11); :RETUR 





RETURN 


5200,7 
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3219 IF (POINT(C,L)=9 AND KO<O) OR (POIN 
T(C,L}<}0 AND KO>0) THEN 523 

9220 PAINT{C,L),KO 

9230 RETURN 

9300 *______ OPTION S:RECTANGLES 
3329 PLAY"O3TIL6SI": CONSOLE ,,4 

3330 GOSUB 19000 

5340 BOXIC,Li-(X,Y),3 

S350 BOX(C,L)-(X,Y),5 

5395 IF MIRIG(1)=-{ THEN CONSOLE , ,Q:RET 
URN 

3360 IF MTRIG(G)=0 THEN 5330 

5370 PLAV*TILESI": CONSOLE , ,0 

5380 BOX(C,L)-(X,Y) ,K0 

9390 CCI=K:LLIEY 

3450 RETURN 

3300 7 5 0PTION. 11: CERCÉES Gt 
9910 PLAY"O3TILERE": CONSOLE , ,4 

9920 G6OSUB 19000 

dod0 X=C-K:Y=L-Y 

J040 RI=GORIX*2+V*2) :? 
S990 CIRCLE(C,L),R1,3 
9960 CIRCLE(C,L),RI,3 
9565 IF MTRIG({1)=-1 THEN CONSOLE ,,O:RET 
URN 

5570 IF MTRIG(0)=0 THEN 5529 

3980 PLAY"TILGRE": CONSOLE ,,0 

5990 CIRCLE(C,L),R1,K0 

5600 CCI=C:LLIEL 

3610 RETURN 

3200827 4 GPPION- PAS ECIIPSES" eu 
9710 PLAY"OSTILELA": CONSOLE ,,4 

3720 GOSUB 19900 

5740 X=ABS(C-Ki:Y=ARS(L- ÿ) 

J/90 CIRCLE(C,LIX,V,S 

5760 CIRCLE(C,LIK,Y,3 

5765 IF MTRIG(I)=-{ THEN CONSOLE ,,02RET 
URN 

3770 IF MIRIG(G)=Q THEN 5720 

9780 PLAY"TILELA": CONSOLE ,,0 

5790 CIRCLE(C,L)X,Y.KD 

9800 CCI=C:LLIEL 

5810 RETURN 

9900 *______ OPTION 10:PARALELOGRANME 
9930 PLAY'TIL6FAN": CONSOLE ,,4 

5949 * 2eme point: Xi:Yi 

5990 GOSUR 19000 

9960 LINE (C,L)-(X,V),3 

5970 LINE (C,L)-(X,#),3 

9980 IF MTRIG({)=-1 THEN CONSOLE ,,0:RET 
URN 

9996 IF MTRIG(0)=0 THEN 9950 

6000 X1=X:YI=Y 

6010 CONSOLE ,,0:LINE (C,L)-(X1,Y1} ,KO:C 
ONSOLE ,,4 

6020 * Zeme point: X:Y 

6025 PLAY"TILEFA" 

60350 GOSUB 19000 


--)pytagore 
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6040 LINE (X1,Y1)-(X,Y),3 

6050 LINE (X1,Y1)-{X,Y),3 

8080 IF MTRIG(0)=0 THEN 6030 

8085 FLAY"T{LGFAb" 

6070 CONSOLE ,,0 

6080 LINE (H1,YL-CA, Ÿ), KO 

6090 12=C+(X-K1) : V2=L+(Y-Y1) 

7000 LINE (X,Y)-(X2, 2), KO 

7010 LINE €K2,Y2)-(C,L),KO 

7020 CCI=C:LLI=L 

7030 RETURN 

7200 *______ OPTION 4:DEPLACT ZONE. 
7210 CONSOLE ,,4 

7220 PLAY"TIL6DO#" 

7230 DO 

7240 GOSUB 19000 

7250 BOK(C,LI-(X,Y),3 

7280 BOX(C,L)-(X,Y),3 

7270 IF MIRIG(1) THENCONSOLE, , 0: RETURN 

7280 IF MTRIG(O) THEN EXIT 

7290 LOOP 

7300 PLAY"TIL6DO#":C=INT (C/8):L=INT(L/8) 
LAS INT (4/8) : Y=INT (Y/8) 

7310 GET {C,LI-(X,Y}, ZONE: (10000) 

7320 C=Y-CiL=Y-L 

1330 D0:D0 

7340 GOSUE 19000 

7350  BOX(X,Y)-(X+C48, +L48),3 

7360  BOXEX,V)-(X4C48, V4L8),3 

7379 IF MTRIG(O) THEN EXIT 

7380 IF MIRIG(1) THENCONSOLE, ,O:RETUR 
N 

7390 LOOP 

7400 PLAY" TIL6DO#": L= INT (X/8) : Y=INT (Y/8 
} 

7420 PUTIX, Vi, 2ONE2 (10000) 

7430 LOOP 

7600 *______ OPTION 8: MOTIF REMPLIS_ 
7610 PLAY"T202L240051" 

7620 RS=INPUTS(1): IF R#=CHRS(13) THEN RE 
TURN 

7620 IF R$<" “ THEN 7620 

7640 PATS=RS 

7680 GOSUB 1090 

7670 PATTERN PATS 

7680 IF (POINTIC,L)=0 AND KO(O) OR (POIN 
T(C,L)£30 AND KO>0) THEN 5230 

7690 PAINT(C,L) KO 

7700 RETURN 

8000 * OPTION 3:ECRITURE 
8010 COLOR 1,0 

8020 DO 

8030 LOCATE EC,EL, 1 

8040 R#=INPUTS (1) 

8050 IF R$=CHR$(13i THEN EXIT 

8060 EC=EC-(R$=CHRS(9) AND EC:39)+(R$-C 
HRS{S) AND EC>4) 

8070 EL=EL-(RS=CHRS(10) AND EL{24)+IR$= 


30 


CHRS(11) AND EL) 

8080 IF R$=CHRS(22) THEN RS=INPUTS{1): 
PRINT CHR$(22)4R$;:60T0 8110 

8090 IF RS2CHRS(143) THEN IF RS=FKEYS( 
1) THEN ATTRB 1 ELSE IF R$=FKEYS(2) THEN 
ATTRB :,1 ELSE IF RS=FKEV#(4) THEN ATTRE 
0 ELSE IF RS=FKEYS(5) THEN ATTRE ,0 

8100 IF RSCHRS(19) AND RSCFKEYS(1) TH 
EN PRINT R$; 

8110 LOOP:ATTRB 0,0 

8120 COLOR 2,0:60SUE 1520 

8130 COLOR 0,2:60SUB 1500: 1C0=1:60SUB 40 
00 

8140 LOCATE ,,0:RETURN 

19000 *####### ROUTINE COORDONNEES ####4 
19050 INMOUSE X,Y 

19060 RETURN 

19800 *stttttt ERREUR DETECTEE 14444841 
19810 SCREEN ,,4:SCREEN , ,0:PLAY"TIL605S 
I":RESUME NEXT 

20000 "HRRAININANNANEENENENENENNENEEEX 


20010 ’# ! 
20020 ’# GESTION DES TOUCHES 0 
20030 ’1 DE FONCTIONS Li 
20040 ‘# Li 


20050 "ARANARANTNNNENNNNENTNNEATANE 

20060 IF (RSFKEYS(1) OR RSÈFKEYS(5)) AN 

D RS£)CHRS(30) AND R$)"I" THEN GOTO 130 

0 

20062 IF R$=CHRS(30) THEN SHOW O:PATTERN 
127:BOXF (319,199)-(32,8), 3:BOXF (319,199 

1-(32,8),-4:PATTERN PATS:G0T0 1200 

20064 IF R$="1" THEN CONSOLE, ,4:PATTERN 

127:BO0XF(32,8)-(319,199),2: CONSOLE, , 0: PA 

TTERN PATS:60T0 1200 

20070 CHOIXF=ASC (RS) -143 

20080 SHOW O:COLOR 0,1 

20090 ON CHOIXF GOSUB 1800, 1920, 1840, 184 

0, 1880 

20095 PLAY*T10SL6S1#" 

20100 HINDOW (0,0)1-(319, 199) 


20140 ? 

20150 GET (4,1)-(39,24), IMAGEZ (16000) 
PIN" R Corpus 

20190 COLOR 2,0 

20200 ON CHOIKF GOSUB 21000, 20500, 20300, 
25000, 20900 

20250 CONSOLE, , 0: SHOW O:TURTLE 0,,, TUR2$ 
20270 ON ERROR G0TO 19809 

20280 CLS:PUT {4,1}, IMAGEZ (16000) 

20290 GOSUB 1000:60T0 1200 


20320 BOXF(10,10)-(35,12)" " 
20320 BOX (1048, 1088)- (3848, 1388),3 
20350 LOCATE 11,11,0 
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20360 PRINT “Iapriaante prete (O/N) ?"; 
20380 R$=INPUTS{1):IF R$="N" THEN RETURN 
ELSE IF R#£>"0" THEN 20380 

29390 PLÂY"T105L6D0#" 

20400 CLS:PUT (0,0),IMAGEX (16000) 

20419 SCREEN ,,4:SCREENPRINT 

20420 SCREEN ,,0 

20450 RETURN 

"RE ere SANERS ESPÈRE 
20510 *’Savep compatible avec Paragraphe 
20520 TURTLE 0,,,TUR1$: SHOW 1 

20530 CONSOLE ,,4 

20545 DO 
20550 
20580 


GOSUE 19000 

TURTLE 0,4, Ÿ 

20570 IF MTRIG(O) THEN EXIT 
20580 IF MTRIG(1) THEN RETURN 
20590 LOOP 

20600 C=INTIX/8):L=INT(Y/8) 
20610 PLAY"DOSIP" 


20620 DO 

20630 GOSUR 19000 

20640  TURTLE 0,1,Ÿ 

20850  X=INT(X/8):Y=INT(Y/8) 

20660 IF XC OR YéL THEN 20710 
20870 BOX(CH8,L48)-(X8847, #87), 1 
20680 BOX(CHB,L#8)-(X48+7,VH8+7),1 


20690 IF MIRIG(O) THEN EXIT 
20700 IF MTRIGi1) THEN PLAY*PPP":G0TD 
20540 


20710 LOF 

20715 SHOW 0 

20720 BET(C,LI-EX, Y), IMAGEZ (16000) 

20730 BOK(CH,LAB)-(XEB+7, 1847),3 

20740 SUFF$=", MAP": G0SUB 21200 

20750 IF R$="N" THEN RETURN 

20760 SAVEP LECT$+" (T-MOUSE) "+NOM$, IMAGE 
2 (16000) 

20770 RETURN 

20900 ?---"--" FIN = 
20910 BOXF(15,10)-(36,12)" * 

20920 BOX (1548, 1048)- 13748, 1348) ,3 

20930 LOCATE 14,11,0 

20940 PRINT "CONFIRMATION (O/N) 7"; 
20950 RS=INPUTS (1): 1F R#="N" THEN RETURN 
ELSE IF R#<)"0" THEN 20950 

20960 PLAY"T3OSLELAR" 

20970 RESET 

21000 ? 
21010 SUFFS=". MAP" 

21020 GOSUR 21200 

21030 IF Ré="N" THEN RETURN 

21040 SCREEN ,,5 

21090 ?SAVEP LECTS+"(T-MOUSE)"+ NOM, IMA 
GEL (16000! :60T0 20780 

21060 LOADP LECTS+NOMS, IMAGE (16000) 
21070 SCREEN ,,0 

21080 RETURN 
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21220 BOX(5t8- 

21230 BOXF(S,2)-(27,11}4 © 
ÿ LOCATE 6,3,1:C0LDR 2 
250 PRINT: “Lecteur: ...,.:"::LOCATE 15, 


ps 
En 





21276 FOR 1=1 TO 4 
R$=INFUTS# (1) 
IF R$=CHR$(13) AND LECT${:"" THEN 







7j THEN 21 


ogue (O/N) 7°; 
}:1F RÉ=EN",THEN 21430 





21390 LINE(0,12)-(39,13)CHR$ (127) LINE (0 
.21)-(39,21)CHR$ (127) 

21400 CONSOLE 14,20,,1:CL9:LOCATEO, 19,0 
21410 DIR LECTS4SUFFS 

21420 CONSOLE 0,24, ,0 

21430 LOCATE £,7,1 

21440 PRINT "Non:....... *::LOCATE 10,7 
21450 NOM$="" 

21460 FOR I=1 TO 8 


21470 R$=INPUT$(1) 

21480 IF R$=CHR$(13) AND NOM$<>"" THEN 
EXIT 

21450 IF R$=CHR$(9) THEN 21430 

21500 IF R$=CHP$(11) THEN 2123 
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21510 
470 
21520 NOMS=NOMS$+RS 


IF R$£" " OR RS:CHR$(127) THEN 21 


21530 LOCATE 19,7,1:PRINT NÜM$; 
21540 IF LENINOMS)€2T THEN FORA=OTOIO:E 


EEP:NEXT:60T0 21430 

21550 NEXT 

21560 LOCATE 6,9,0 

21570 PRINT "Lecteur pret (D/N) 7°; 
21580 R$=INPUTS(1) 

21590 IF R$£"N" AND R$<:"0" THEN 21580 
21600 RETURN 

22000 "HHININERENENENENNENEENENEERRETE 
22610 *# ERREUR FICHIER SUR DISK L 
22020 "ARIANE 
22030 SCREEN ,,0:LOCATE 8,11,0 

22640 COLOR ,,1 

22050 PRINT "Erreur:";ERR; 

22060 BEEF:BEEF:BEEP 

22070 R$=INFUTS{1) 

22080 COLOR ,,!:RESUME 21259 

22990 
25000 * 
25010 *PALETTE 2,3611: "PALETTE 3,3872 
25020 CLS:COLOR 2,9:CONSOLE ,,9 

25030 ATTRB 1,0:LOCATE 12,0,0 

25046 PRINT'NOTIFS":ATTRE € 

25050 FOR I=16 TO 44 STEP 16 

25069 LINE(I,16)-(1,144),2 

25070  LINE({6,1)-1144,1),2 

25080 NEXT 

25090 COLOR 3 

25100 LOCATE 29,3,0 

25119 PRINT “{: Redéfinir": 

23120 LOCATE 20,6,6 

25130 PRINT "2: Charger"; 

25140 LOCATE 20,9,0 

25150 PRINT "3: Enregistrer"; 

25160 LOCATE 20,12,0 

25179 PRINT "4: Menu principal": 

25180 R$=INPUT#(1) 

25199 IF R$="1" THEN 25240 

25200 IF R$="2" THEN 25930 

25210 IF R$="3" THEN 25830 

25220 IF R$="4" THEN PALETTE ,94091:FAL 
ETTE 3,15:PALETTE 2,2740:RETURN 

25230 60TD 25180 

25240 *HERATINRE REDEFINIR AHNRtttiititt 
25250 BOXFi20,3)-(39,{2)" " 

2526 LOCATE 20,3,0 

25270 PRINT'Quel aotifs:";:COLOR 2? 

25280 FOR I=! T0 5 


23290 LOCATE 20,143+3,0 


25300 PRINT STR$(I-1);":";STRINGS (2, 14 
3+L):RES: STRINGS (2, 14341) 
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22330  LOCATE 28, {1-5)13+3,0 

25340 PRINT STR$(I-1):":": GTRINGS (2, 14 
Z41)3RES:STRINGS (2, 14341) 

25350 NEXT 

25369 LOCATE 20,21,0 

25370 PRINT"?ENT': Nenc” 

25380 R$=INPUTS (1) 

25200 IF RS=CHRS(13) THEN 25000 

25400 IF R$<"0" OR R$>"9" THEN 25380 
25419 NBR=VAL (R$) +1 

25420 BOXF(20,3)-134,24)" * 

25430 PATTERN 127 

25440 LOCATE 20,3,0 

25450 COLOR 9,1 

25460 PRINT "ANCIEN MOTIF: "; 

25470 COLOR 2,0:LOCATE 25,5,0 

25480 PRINT STRING (2, 1434NBR) ;RES; STRIN 
6$ (2, 1434NBR) : 

25490 DEFGRS (15+NBR)=0,0,0,0,0,0,0,0 
25500 FORI=1TO8:BNINBR, D)=0:NEXT I 





25310 LOCATE 20,14,0 
25520 COLOR 1,9:PRINT''ENT': Menu": 


25530 


25540 LOCATE 20,8,0 

25550 COLOR 2,3 

25560 PRINT "NOUVEAU MOTIF: ": 

25570 COLOR 2,0:LOCATE 25,10,0 

25580 PRINT STRINGS(2, 14Z4NBR) :RES:STRIN 
6$(2, 14T4NER) ; 

25590 SHOW 1: CONSOLE , ,4:00 


25800  INMQUSE X,Y 
25810  TURTLE 0,K,Ÿ 
25820 IF MIRIG(O) THEN EXIT 


256039 R$=INKEYS:IF R$£3"" THEN 25790 
25640 LOOP 

25650 IF X16 OR V£16 OR X>143 OR V>143 
THEN 25590 

25660 SHOW € 

25670 X=INT(X/16) 

25680 Y=INT(V/16) :HV=Y42 
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25690 HOXF(XH18+1,Vt16+1)-(XA16+15, VE 16+ 
151,3 

25700 CONSOLE ,,0 

25710 BN$="":BNINER, Y}=0 

25720 FOR A=1 TO 8 

25730 IF SCREEN(ANZ,Y#2)=0 THEN BNS$=EN 
$+"0" ELSE BN$=EN$+"1" 

25740 IF LEN(BN$#)C>A THEN 25700 

25750 NEXT A 

25760 BNINBR, Y}=VAL ("&B"+BN$) 

25770 DEFOR$(15+NBR)=BNINBR, 1), BNCNER, 2) 
3 BNCNER, 3), BNINER, 4), BNINBR, 3), BNNER, 6) 
4 BN(NBR, 7) ,BNINBR, 8) 

25780 GOTO 25540 

25790 *#ttit Touche appuyée 

25800 SHDH 0 

25810 IF R$=CHR$(13) THEN 25000 

25820 60T0 25590 

25830 ’Httttt ENREGISTRER titttttttitttt 
25840 SUFF$=",GR$" 

25850 6OSUB 21200 

25860 IF R$="N" THEN 25000 

25870 OPEN "O",#1,LECT$+NOMS+".6R$" 
25880 FOR I=1 TO 10 

25890 PRINT #1,BN(I,1),BN(I,2),BN(I,3), 
BN(1,4),BN(I,5),BN(I,6),BN(1,7),BN(I,8) 
25900 NEXT 

25910 CLOSE 

25920 60TO 25000 

25930 *HANAIENNX CHARGER HHRXENIIITTNANÉ 
25940 SUFF$=",6R$" 

25950 GOSUB 21200 

25960 IF R$="N" THEN 25000 

25970 OPEN "I", #1, LECT$+NOMS+",GR$" 
23980 FOR 1=1 TO 10 

25990 INPUT #1,BN(I,1),BN(I,2),BN(I,3), 
BN(I,4),BN(I,5),BN(I,6),BN(I,7),EN(I,8) 
26000 NEXT 

26010 CLOSE 

26020 FOR I=1 TO 10 

26050 DEFGR$(15+I)=BN(I,1),BNUI, 
15),BN(I,4),BNII,S),BN(I,6),BN(I, 
,8} 

26040 NEXT 

26050 6OTO 25000 
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Croustillant 


L.. nombreux MO5 des 
nanoréseaux n'ont pas la 
chance de posséder la 
fonction CRUNCHS du Basic 
428. Voici une routine pour 
pallier ce manque. 


L. fonctions CRUNCHS et EVAL sont utilisées 
pour entrer une expression Basic dans un program- 
me par INPUT. Ces instructions n'existent pas dans 
le Basic du MO5. Cette routine, qui les remplace, 
pourra simplifier de nombreux programmes comme 
les traceurs de courbes ou ceux résolvant les 
équations. Toute expression peut être rentrée au 
clavier dans une ‘variable (alphanumérique) puis 
évaluée. : 

On peut ainsi simuler une calculette, c'est le Basic 
qui fait tout le travail. Dans le MO5 il existe une 
routine (DE3A) qui transfère un bloc mémoire 
(adresse du pointeur 21B3 et 21B4) vers le buffer 
clavier et le code. Une seconde routine évalue une 
expression et place le résultat dans l'accumulateur 
flottant situé en 214C. Il suffit de placer dans un 
pointeur (21B3, 21B4) l'adresse de notre chaîne à 
traiter, d'appeler la routine DE2A, puis de placer 
l'adresse de la traduction dans le même pointeur et 
de laisser agir la routine située en 21D9. Le résultat 
est récupéré dans une variable numérique par l'ins- 
truction USR. 

Le programme Basic suivant charge la routine ma- 
chine et donne un exemple. Vous pourrez compac- 
ter cette routine dans une chaîne de caractères, les 
datas n'étant écrites comme cela que pour ceux qui 
veulent comprendre. 

Claude Girardon 
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1 ? SAVE"EVAL 

19 * CHARGEMENT DE LA ROUTINE ---- 
20 PC=&H8000: PRINT "DEBUT EN ":PC 
309 READ H$:IF W$="FIN* THEN 70 

40 POKE FC, VAL("EH"+#) 

J0 PE=PC+I 

6û GOTO 30 


70 PRINT "FIN EN  "PC-1 

8Q TEST 
90 PRINT 

190 PRINT “TAPER X=(UNE FONCTION)" 
110 PRINT "OU FIN":PRINT 


126 DEF UGR=&H8000 
130 F1=3.14159 

140 INPUT "RENTREZ UNE FONCTION ",1$ 
150 IF Z$="FIN" THEN 220 

160 ON ERROR GDTO 180 

170 X=USR(2Z$) 

80 IF ERR=2 THEN RESUME 190 ELSE PRINT 
"ERREUR "ERR'A LA LIGNE "ERL:END 

190 ON ERROR GOTE 0 


206 PRINT X 

210 GOTO 140 

220 END 

230 DATA AE, O1 :*ADRESSE CHAINE 
240 DATA 10,8HE,21,B4: "SAUVE CARAC COUR 
250 DATA 34, 20 


260 DATA BD, 
270 DATA 4F 
280 DATA A7, CO :'2ERO PRECAUTION 
290 DATA 70, 21,B4:'DER CHAINE À EVAL 
300 DATA D, 21,09:"EVALUATION 

310 DATA 35, 2 

320 DATA 10,BF, 21,83 
330 DATA 86, 04 :'RENVOI RESULTAT 
340 DATA BE, 2'PAR LA FONCTION 
350 DATA 29 L'USR 

360 DATA FIN 


DE, S3A:° TRADUCTION 
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La région du plus fort 





L. France, vous A. une présentation rapide de toutes les 
connaissez ? Encore un cg de France, Aya PpoeS une révi- 
sion des connaissances. C'est seulement après ces 
P se ghenhaht pour essayer de révisions indispensables que le menu vous permet 
aire entrer la géographie de choisir entre trois niveaux de difficulté. 
dans la tête de nos Débutant : chaque région est représentée par un 
concitoyens. petit carré à l'endroit où elle se situe sur la carte de 


France. Un nom de région, choisi au hasard, vous 
est proposé. Pointez cette région sur la carte en 
déplaçant le curseur clignotant. Si vous vous êtes 
trompé, l'ordinateur vous donne, en rouge, le nom 
de la région que vous venez de choisir. 
Initié : cette fois, c'est le dessin de la région qui 
apparaît à droite de l'écran. À l'aide du curseur, 
choisissez son nom sur la liste des 22 régions. 
” . Champion : comme pour le niveau précédent, le 
L] fl pm É (y l = qu dessin de la région vous est proposé. Mais cette fois, 
de, : vous devez écrire son nom. En cas d'erreur, la ré- 
gion dont vous avez donné le nom se dessine en 
rouge au bas de l'écran. 


Pour tous les niveaux, après une bonne réponse, la 
région est mise en place sur la carte de France. Vous 
ne pouvez pas abandonner tant que la carte n'est 
pas complète. Une note finale sanctionne vos ef- 
forts. Rassurez-vous, l'ordinateur n'est pas trop sé- 
vère. Et puis les enfants pourront tester leurs pa- 
rents qui étaient soi-disant... si fort en Geo... de leur 
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27 ? 
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TECHNIQUE 


Tout sur l’extramoniteur 


(En plusieurs épisodes, suite des précédents numéros) 


Sixième épisode : Les TORTUES 


D. ces tortues, 
elles sont partout ! ! Arrivées, 
sur terre comme tout être 
vivant après différentes 
mutations, Monsieur de La 
Fontaine s’en est emparé, 
puis elles sont apparues en 
informatique avec le LOGO 
de Seymour Papert. On 
retrouve ces petites bêtes 
dans les Basic 128 et 512, et 
maintenant les voilà dans 


l’'extramoniteur ! 


A. dire,la présence des tortues dans l'ex- 
tramoniteur est la conséquence de leur implanta- 
tion dans le Basic, car l’extramoniteur utilise les 
routines “ Tortue” du Basic résident. Une tortue est 
un objet graphique, pouvant se présenter sous les 
formes les plus variées, avec lequel on communique 
par des Commandes. Ces commandes correspon- 
dent à des points d'entrée de l'extramoniteur etsont 
très proches des commandes Basic. 

Pour donner un ordre à une tortue, il suffit généra- 
lement de charger le registre B du 6809 avec le code 
du point d'entrée de la commande et d'indiquer la 
tortue, à laquelle on s'adresse, en pointant le regis- 
tre Y sur le premier octet d'une zone mémoire, ré- 
servée à cette tortue et que l'on appelle le descrip- 
teur de la tortue en question. L'exécution de la 
commande est obtenue par un appel de la routine 
extramoniteur. 

Le descripteur de Tortue : un des- 
cripteur est une zone mémoire de 14 +n octets (n 
dépendant de la forme de la tortue). Cette zone est 
subdivisée en champs de 1 à 3 octets correspondant 
aux attributs courants de la tortue (positionnement, 
rotation, taille, direction, forme, etc.). 

Format du descripteur : 


Initialisation : la routine d'initialisation est 
en quelque sorte la déclaration de naissance de la 
tortue. Le code d'entrée est $27 (INITOR). Le regis- 
tre Y du 6809 doit pointer sur une zone d'au moins 
27 octets. Cette zone mémoire est destinée à rece- 
voir le descripteur. À la naissance, c'est-à-dire après 
la routine d'initialisation, la nouvelle tortue est si- 
tuée au milieu de l'écran, cachée, crayon levé, taille 
standard, angles de rotation et de direction nuls, en 
forme de triangle isocèle. 

Contrairement à ce qui se passe pour le Basic, le 
nombre de tortues n'est pas limité. 


Visibilité : une tortue peut être visible ou invi- 
sible. La routine SHOW code $21 autorise notre 
tortue à se faire voir ou bien à se cacher. La tortue à 
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laquelle s'adresse l’ordre de visibilité ou d'invisibili- 
té est désignée par son descripteur. L'adresse du 
premier octet du descripteur doit être chargée dans 
le registre Y. Le registre À indique l'ordre passé à la 
tortue: 

— $00 (CACHE) Tortue invisible 

— $FF (MONTRE) Tortue visible 

La couleur de la tortue doit être spécifiée par la 
routine choix. 

Déplacement : le déplacement de la tortue 
est obtenu par la routine FWD code $25. Comme 
précédemment, la tortue à laquelle s'adresse l'ordre 
de déplacement est désignée par son descripteur. 
Le pointeur de descripteur doit être chargé dans le 
registre Y. La valeur du déplacement doit être com- 
prise entre -256 et +255, et chargée dans le registre 
X. Les tortues peuvent se déplacer sur une fenêtre 
virtuelle de -32768 à +32767, sur les deux axes, mais 
sont visibles uniquement par la fenêtre de travail. 
On peut donc avoir des tortues en dehors de l'écran 
qu'il suffit de déplacer dans la fenêtre de travail pour 
les rendre visibles. Les déplacements sonteffectués 
dans la direction courante. Une valeur de déplace- 
ment négative entraîne un déplacement dans la di- 
rection opposée à la direction courante. 
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Modication de direction : la routine 
de direction HEAD code $22 modifie la direction 
courante de la tortue dont le pointeur de descripteur 
est passé par le registre Ÿ du 6809. La direction de la 
tortue est spécifiée par un angle exprimé en 256 ièmes 
de cercle. Les angles de direction sont comptés à 
partir du point "3 heures”, dans le sens des aiguilles 
d’une montre. Les modifications de direction peu- 
vent être exprimées en relatif ou en absolu. 

En relatif les modifications de direction sont calcu- 
lées à partir de la direction courante, tandis qu’en 
absolu les angles sont exprimés à partir du point 3 
heures. Les angles signés de modification de direc- 
tion sont passés par le registre X et le registre À 
indique le statut de la modification. 

— $00 (ABSOLU) Angle exprimé en absolu 

— $FF (RELAT) Angle exprimé en relatif 


Un tour complet (360°) correspond à une rotation de 
256 ièmes de cercle, un demi-tour (180°) à une rota- 
tion de 128 ièmes de cercle, un quart de tour à une 
rotation de 64 ièmes de cercle, etc. 


192 


126 (0) 


64 


37 





4 

ë 
te 
1É 
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Rotation de la Tortue : la routine de 
rotation ROT code $23 permet à la tortue, dont le 
pointeur de descripteur est passé par le registre Y 
du 6809, d'effectuer une rotation sur elle-même au- 
tour du premier point de son tracé. Cette rotation 
est consignée par le registre X et exprimée en 
256 èmes de cercle. Le sens positif est le sens des 
aiguilles d'une montre. Tout comme l'expression de 
la direction, la rotation peut être définie en relatif ou 
absolu. 

En relatif, les modifications de rotation sont calcu- 
lées à partir de la valeur de rotation courante, tandis 
qu’en absolu, les angles de rotation de la tortue sont 
exprimés à partir du point 3 heures. Le registre À 
indique le statut de la variation de rotation. 

— $00 (ABSOLU) Rotation absolue 

—$FF (RELAT) Rotation relative 

Taille de la Tortue : lataille de la tortue, 
dont le pointeur de descripteur est passé par le 
registre Ÿ, peut être modifiée en utilisant la routine 
ZOOM code $24. L'accroissement ou la réduction 
de taille sont attachés à une valeur exprimée entre 0 
et 255 et passée par le registre X du 6809. Cette 
variation de taille peut être exprimée en relatifou en 
absolu. Le registre À spécifie ce mode. 

— $00 (ABSOLU) Accroissement absolu 

— $FF (RELAT) Accroissement relatif 

Tracé de la Tortue : la routine TRACE 
code $1F permet à la tortue, à la manière de l'escar- 
got, de laisser une trace sur son passage. Pour cela, 
elle utilise un crayon qui peut être baissé ou levé. Un 
crayon baissé écrit, un crayon levé n'écrit pas 
(C.Q.F.D). La couleur du tracé dépend du mode 
choisi dans la routine CHOIX. La tortue à laquelle 
on demande d'écrire (ou de ne pas écrire) est spéci- 
fiée par son descripteur qui doit être chargé dans le 
registre Y. Le registre À indique si le crayon est levé 
ou baissé. 

— $00 Crayon levé 

— $FF Crayon baissé 


Mode d'affichage de la Tortue : 
deux modes d'affichage sont reconnus par la tortue. 
Le mode dit “rapide” et le mode dit “lent”. En mode 
lent, toutes les modifications entraînent un réaffi- 
chage de l'objet. En mode rapide les modifications 
ne sont prises en compte par l'affichage que sur un 
déplacement de l'objet. Ainsi les modifications de 


taille et de rotation sont différées au prochain dé- 
placement de la tortue. Cette façon d'agir permet de 
modifier plusieurs paramètres en un minimum de 
temps. La modification du mode d'affichage est ob- 
tenue par l'appel de la routine ANIME code $20. La 
tortue à laquelle on demande de modifier son mode 
d'affichage est spécifiée par son descripteur qui 
doit être chargé dans le registre Y. Le registre À 
indique le mode. 

— $00 Mode rapide 

— $FF Mode lent 

Autre moyen de modifier les paramètres de la Tor- 
tue : nous avons vu que les paramètres courants de 
la tortue étaient mb dans le descripteur de 
la tortue considérée. On peut donc modifier direc- 
tement les octets du discripteur et valider ces modi- 
fications par la routine MOVE code $26. Plusieurs 
paramètres peuvent ainsi être modifiés en appelant 
une seule fois l'exträmoniteur d'où un gain de 
temps. Le descripteur de la tortue doit être chargé 
dans le registre Y. 

Modification de la forme de la 
Tortue : à l'initialisation, toutes les tortues ont 
la même forme. Cette forme est définie par le des- 
cripteur à partir du 16 ième octet. La forme d'une 
tortue est définie par une suite d'ordres composés 
d'une action et d’un paramètre. Ces paramètres 
sont exprimés en 256 ièmes de cercle ou en pixels 
en fonction de l'action. Ces ordres sont: 

— Tourne à gauche de (xx) L (xx) 

— Tourne à droite de (xx) R (xx) 

— Avance et trace de (xx) D (xx) 

— Avance et ne trace pas de (xx) U (xx) 

Ces ordres, placés à la suite l’un de l'autre, dans 
l'ordre exigé par la forme de la tortue, constituent 
une chaîne de caractères terminée par deux zéros. 
Exemple : /R32D25R64D50R64D25R64D50 00/ 
Cette chaine est intitulée “chaîne source” ou 
“chaîne à compiler”. La routine CMPTOR code $28 
permet de transcrire la chaîne source en codes di- 
rectement interprétables par les routines tortue. Le 
registre Y doit pointer sur la chaîne source et le 
registre X sur la zone de réception qui peut, bien 
entendu, être la zone du descripteur réservée à la 
forme de la tortue. À l'appel de CMPTOR le registre 
FACLO ($6151 sur TO et $2151 sur MO6) spécifie la 
longueur de la chaîne source, tandis qu'au retour il 
indique la longueur du résultat de la compilation. 


X= pointeur destination 


op) ZONE FORME du DESCRIPTEUR 


CMPTOR 


Y=pointeur source 


CHAINE SOURCE 
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ARR EE EEE OO OO OC IC IOOOOK 
* LES TORTUES * 
AO NAN ON D OO OO OOOOE TO NN 


E803 PUTC  EQU $SE803 AFFICHAGE 

ECOC EXTRA EQU SECOC  EXTRAMONITEUR 
E7C9 RDIR EQU $E7C9 Registre de donnees 
E7CB RCOM EQU $E7CB Registre de commande 


E7DC RE7DC EQU $SE7DC Registre GA 

6145 XL EQU $61A5 BORD GAUCHE 

6147 YE EQU $61A7 BORD HAUT 

6149 XR EQU #61A9 BORD DROIT 

61AB YT EQU S61AB BORD BAS 

61A1 XXXXX EQU $61A1 Ordonnee 

6143 YYYYY  EQU $61A3 Abscisse 

6140 TRATYP EQU #6140 Type de trace 

619F COLOR EQU #619F Couleur 

6288 VITH  EQU 56288 Drapeau de couleur 

6168 DEBZON EQU #616B Debut de ZONE 

616E FINZON EQU $616E Fin de zone 
*TYPE DE TRACE 

0000 NORNAL EQU o Normal 

0001 TRANSP EQU 1 Transparent 

0002 INVERS EQU 2 Inverse 

0003 MODET  EQU 3 Et logique 

005A MOD40O  EQU #5A Mode 40 colonnes 

005B MOD80 EQU s5B Mode 80 colonnes 

0059 BIMA4 EQU s59 Bitmap 4 couleurs 


005E BIMA16 EQU $5E Bitmap 16 couleurs 

0049 ‘ MOPAZ2 EQU 549 Page 2 

0048 MOPA1  EQU 548 Page 1 

0044 OVPAZ2 EQU $4A Overlay page 2 

004B OVPA1 EQU $4B Overlay page 1 

0088 TOVPAO EQU s88 Triple overlay p0 

0089 TOVPA1 EQU 589 Triple overlay pl 

0084 TOVPA2 EQU $8A Triple overlay p2 

008B TOVPA3 EQU $8B Triple overlay p3 

0041 RBIMAS EQU sai BITMAP SPECIAL 

0021 RBIMA EQU s21 BITMAP STANDARD 

001B ESC EQU s18 Esca 

0000 TER EQU s00 Terminateur 

0000 RESETC EQU s00 Reset 

0014 ERRMSC EQU $14 MESSAGE D'ERREUR 

001€ CHOIX EQU 28T Routine Choix 

001E MIG EQU 30T Interpreteur Graph 
*COULEUR 

0000 NOIR EQU o 

0001 ROUGE  EQU 1 

0002 VERT  EQU 2 

0003 JAUNE EQU 3 

0004 BLEU  EQU 4 

0005 MAGENT EQU 5 Magenta 

0006 CYAN  EQU 

0007 BLANC EQU 4 

0008 GRIS  EQU 8 

0009 ROSE  EQU 9 
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0004 VERTC  EQU SA 
000B SABLE EQU $B 
000c BLEUCL EQU sc 


Vert clair 


Bleu clair 


000D PARME EQU sD 
0008 BLEUCI EBQU $E Bleu ciel 
000F ORANGE EQU SF 
*DRAPEAU 
0000 AVECOU EQU #00 Avec couleur 
00FF ‘SANCOU EQU $FF Sans couleur 
0000 VIDE EQU 00 
O00FF PLEIN EQU $FF 
0000 CACHE EQU 00 Tortue cachee 
O00FF MONTRE EQU SFF Tortue visible 
0000 ABSOLU EQU 00 Absolu 
O00FF RELAT EQU $FF Relatif 
00FF BAISSE EQU SFF Crayon baisse 
0000 LEVE EQU 00 Crayon leve 
0000 RAPIDE EQU 00 Affichage rapide 
00FF LENT EQU SFF Affichage Lent 
*::::MODE TORTUE 
001F CRAYON EQU $1F Trace en node "tortue" 
0020 ANIME EQU $20 Animation de la tortue 


0021 SHOW  EQU #21 Tortue visible 
0022 HEAD EQU $22 Direction de la tortue 
0023 ROT EQU #23 Rotation de la tortue 
0024 ZOON EQU $24 Taille de la tortue 
0025 FWD EQU $25 Avance la tortue 
0026 MOVE EQU $26 Deplace la tortue 
0027 INITOR EQU $27 Init en mode "tortue" 
0028 CNPTOR EQU $28 Compile forme tortue 
* :Parametres lies aux tortues 
0006 TX EQU 6 Position en X 
0009 TY EQU 9 Position en Ÿ 
000€ TROT EQU 12T Rotation 
000D TTAI  EQU 13T Taille 
000E TDIR EQU 14T Direction 
0010 TFORME EQU 16T Forme 
6151 FACLO  EQU #6151 Longueur de chaine 
9E00 ORG $9E00 
*Commutation des banques RAM 
9E00 OF 17 E7 67 TABANQ FCB $0F,#17,#E7,867,8A7, #27 
9E04 A7 27 
9E06 34 16 BANQ PSHS  D,X 
9E08 F6 E7CB LDB RCOM Lecture du registre 
+ de controle du PIA 
950B C4 FB ANDE #5FB Force le mode dir- 


* -ection 
ST 


9EOD F7 E7CB RCOM 


9E10 8E 9E00 LDX #TABANQ Pointe sur la ta- 
* ble des banques 

9E13 A6 66 LDA A,X Valeur a passer 
* pour commuter la banque 

9E15 B7 E7C9 STA RDIR Charge le registre 
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* de direction 

9E18 CA 04 ORB #s04 Repositionne le PIA 
* en mode donnee 

9E1A F7 E7CB STE RCOM 

9E1D 35 96 PULS D,X,PC 


*initialisation generale Sous /ASM 
9E1F 34 06 INEXMA PSHS D 


9E21 C6 00 LDB #RESETC Reset (pas 5/BASIC 


9E23 BD ECOC JSR EXTRA 
9E26 86 00 LDA #0 BANQUE 5 s/ BASIC 
9E28 BD 9E06 JSR BANQ 
9E2B 35 86 PULS D, PC 


* POINT D'ENT 
9E2D 34 DEBUT PSHS 
9E2F 17 LBSR 
9E32 8E LDX 
9E35 17 LESR 
9E38 35 PULS 


9E3A ED START JSR 
9E3D 3F Svwi 


REE - 
A,B,X,U,Y,DP,CC 

INEXMA 

#PROG1 POINTEUR 
ECRIMO TRACE LE DESSIN 
A,B,X,U,Y,DP,CC, PC 


DEBUT 


* "PLAGE" A TORTUES 


9E3E POLY RME 

* Notez: La t 
9E66 TORT2 RME 
9E8E TORT3 RMB 

* SOURCE DE P! 
9EB6 52 33 SORPOL FCC 
9EBA 32 35 
9EBE 34 44 : 
9EC2 52 36 
9EC6 32 35 
9ECA 34 44 


9ECE 0000 FINPOL FDB 


40T Tortue 1 

ortue 1 se prenomm POLY 
40T 

40T 

OLY 
“R32D25R64 D50R64 D25 R64 D50 


00 


* TABLE GRAPHIQUE ET DE VISUALISATION 


* 
9EDO DD41 PROG1 FDB 
9ED2 04 FCB 
9ED3 1B 5A 00 FCE 


9ED6 DÉIE 
9ED8 04 
9ED9 00 01 


SEDC DEOA 
9EDE 09 

S9EDF 0000 0000 
9BE3 013F O0C7 


9EE7 DD50 
9EE9 03 


TGV) 
AFFICH Mode d'affichage 
341 Longueur 

TER 


TRACE Type de trace 
341 Longueur 
NORMAL, ROUGE, AVECOU 


FENE Fenetre 
8+1 Longueur 
9,0,319T, 190T 


Declare une tortue 
Longueur 


34 


30 


On continue 


* Declare une tortue dont le descripteur 
* est passe en parametre. 
DECTOR PSHS  X,Y 
LEAX 1,X 
LDY ‘4 Pointeur descripteur 
LDB #INITOR Initialisation 
JSR TRAMON 
PULS 


Montre ou cache la tortue dont le des- 
cripteur est passe en parametre. 
Les parametres sont passes dans l'or- 
dre suivant: 
-Descripteur 
-Drapeau ( Visible ou Cache) 
MONTR PSHS  X,Y 
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LEAX 1,X 

LDY ,X++ 

LDA .X 

LDB #SHOV 

JSR TRAMON 
X, Y, PC 


Descripteur 
Tortue visible 


Deplace la tortue dont le descripteur 
est passe en parametre. 
Les parametres sont passes dans l'or- 
dre suivant: 

-Descripteur 

-Longueur du deplacement 


9BEA 9E3E 
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PSHS 
LEAX 
LDY 
LDX 
LDB 
JSR 


X,Y 

1,X 

,X++ Descripteur 

,X Longueur du deplacement 
#FWD 

TRAMON 


9BEC DDF2 
9BEE 06 
S9BEF 9EB6 
9EF1 18 
9EF2 9E3E 


9EF4 DDC4 FDB 
9EF6 04 FCB 
Q9EF7 9E3E FDB 
9EF9 FF FCB 
9EFA DDSE FDB 
9EFC 04 FCB 
9EFD 9E3E FDB 
9EFF FF FCB 
9F00 DD6E FDB 
9F02 05 FCB 
9F03 9E3E FDB 
9F05 000C FDB 
9F07 DD7E FDB 
9F09 06 FCB 
9FOA 9E3E FDB 
9FOC FF FCB 
9FOD 0019 


9FOF DD90 
9F11 06 
9F12 9E3E 
9F14 FF 
9F15 0024 


9F17 DDA2 
9F19 06 
9F1A 9E3E 
9F1C FF 
9F1D 001E 


9F1F DDB4 
9F21 04 
9F22 9E3E 
9F24 FF 
9F25 0000 


ARR OX 
* ROUTINES 
CLAFENTE TETE ZE 


DDoo ORG 
#* ELABORE LE 


DDOO 34 10 ECRIMO PSHS 
DDO2 6D 84 AR3 TST 
DDO4 27 08 BEQ 
DD06 AD 91 JSR 
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* DU DESSIN 
DDOB A6 LDA 
DDOA 30 LEAX 
DDOC 20 BRA 
DDOE 35 FIMO PULS 


COXPIL Compile 
5+1 Longueur 
SORPOL  Pointeur source 
FINPOL-SORPOL long.source 
POLY Descripteur 
====ss==sssemsssss 
MODUL Module la vitesse 
341 Longueur 
POLY Tortue 1 
LENT Mode “lent” 
MONTR Montre une tortue 
3+1 Longueur 
POLY Tortue 1 
MONTRE Tortue visible 
=====ssssmsssssssses 
DEPLA Deplace une tortue 
a+1 Longueur 
POLY Tortue 1 
12 Deplacement 
MODIR Modif. direction 
5+1 Longueur 
POLY Tortue 1 
RELAT Relatif 
25T 25 emes de cercle 
Modif. rotation 
Longueur 
Tortue 1 
Relatif 
36 emes de. cercle 


Modif. de taille 
Longueur 

Tortue 1 

Relatif 

K. de variation 


ACTCRA Active crayon 
3+1 Longueur 
POLY Tortue 1 
BAISSE Crayon actif 
0000 FIN 


AAA A A ONCE EE 
UTILITAIRES * 
MN ON AA TON EAN 
S$DDOO 

DESSIN POINTE PAR X 


x 

,X LA FIN ? 

RIXO out 

[,X++)] TRACE UN ELEMENT 


,X N. D'OCTETS 
A,X NEV POINTEUR 
AR3 

X, PC 


* Le code de la routine extramoniteur 


* est contenu 
DD10 MESSAG RMB 
DD29 34 TRAMON PSHS 
DD2B 17 LESR 
DD2E 5D TSTB 
DD2F 27 BEQ 
DD31 8E LDX 


dans E 

25T Reserve 25 octets 

B 

EXTRA Appel la routine 
Teste si erreur 

AVI Pas d'erreur 

#MESSAG Erreur. Le message 


# d'erreur est extrait et sauvegarde 


* dans MESSAG 
DD34 1F TFR 
DD36 C6 LDB 


B,A No d'erreur 
#ERRMSC Routine de traite- 


de l'erreur 


DD38 17 LBSR 
DD3B 30 LEAX 
DD3D 8D BSR 


DD3F 35 PULS 


“.. . . 

* Affiche une 

+ tee par X 
DD41 34 AFFICH PSHS 
DD43 30 LEAX 
DD45 E6 AFF1 LDB 

* chaine 
DD47 27 BEQ 
DD49 17 LESR 


EXTRA 
-1,X 
AFFICH Affichage du 


B,PC 


chaîne de caracteres poin- 


B,X 
1,X 
,X+ Un caractere de la 


AV2 Un zero ? 
PUTC Non.Alors on affi- 


34 
30 
104AE 
16 
AE 
cé 
BD 
35 


30 
o1 
81 
80 
84 
23 
DD29 
BO 


PULS X,Y,PC 


Modifie la direction de la tortue dont 
le descripteur est passe en parametre. 
Les parametres sont passes dans l'or- 
dre suivant: 
-Descripteur 
Drapeau ( Absolu où relatif) 
-Angle 
PSHS X,Y 
LEAX 1,X 
LDY a X++ Descripteur 
LDA .X+ Relatif/absolu 
CE 4 Angle 
LDB #HEAD 


# Rotation de la tortue dont le descrip- 
* -teur est passe en parametre, 

* Les parametres sont passes dans l'or- 
* dre suivant: 

* -Descripteur 


* -Drapeau ( Absolu ou relatif) 
* -Angle de rotation 


ROTAT PSHS  X,Y 
LEAX 1,X 
LDY ++ 
LDA  ,X+ 
LDX 
LDB  #ROT 
JSR  TRAMON 
PULS  X,Y,PC 


Descripteur 
Relatif/absolu 
Angle de rotation 
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* Modifie la taille de la tortue dont le 

* descripteur est passe en parametre 

* Les parametres sont passes dans l'or- 

# dre suivant: 

* -Descripteur 

* -Drapeau ( Absolu où relatif) 

* -Variation de taille 

TAILLE PSHS  X,Y 
LEAX 1,X 
LDY ,X++ 
LDA ,X+ 
LDX 5 
LDB #ZO0X 
JSR 


Descripteur 
Absolu/relatif 
Variation de taille 


+ Active ou desactive le crayon de la 
+ tortue dont le descripteur est passe 
* en parametre 
* Les parametres sont passes dans l'or- 
* dre suivant: 
* -Descripteur 
* -Drapeau ( Actif/inactif) 
ACTCRA PSHS  X,Y 
LEAX 1,X 
LDY 4 X++ 
LDA ,X 
LDB #CRAYON 
JSR TRAMON 


Descripteur 
Actif / inactif 


Module la qualite d'affichage de la 
tortue dont le descripteur est passe 
en parametre 
Les parametres sont passes dans l'or- 
dre suivant: 

-Descripteur 

-Drapeau ( Rapide ou Lent) 


MODUL PSHS X,Y 
LEAX 1,X 


LDY ,X++ 
LDA ,X 

LDB #ANIME 
JSR TRAMON 


Descripteur 
Rapide/lent 


Fa 
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* dre suivant: 

* -Descripteur 

* -Abscisse de la tortue 
* -Ordonnee de la tortue 
* -Rotation 

x -Taille 

* -Direction 


MODIF PSHS X,Y 
LEAX 1,X 
LDY ,X++ Descripteur 
LDD ,X++ Abscisse 
STD 6,Y 
LDD ,X++ Ordonnee 
STD 9,Y 
LDD 1 X++ 
STD 12T,Y 
,x+ 
14T,Y Direction 
#NOVE 
TRAMON 


Rotation/taille 


* Compile une forme de tortue. 
* L'ordre des parametres t le suivant: 
*x —Pointeur sur la chaine sourc: 
* -Longueur de la chaine source 
* —Pointeur sur le descripteur 
COXPIL PSHS X,Y 
LEAX 1,X 
LDY ,X++ Pointeur source 
LDA ,X+ Longueur 
STA FACLO 
LDX ,X++ Pointeur descripteur 
LEAX 167T,X Debut de la zone 
LDB #CMPTOR 
JSR TRAMON 


* Defini une fenetre dont les coordon- 


x -nees sont pointees par le registre X 
FBNE PSHS B,U,X 
LEAX 1,X saute n.octets 
LDU #XL ler registre 
LDE #4 4 valeurs 
LDY »X++ Lecture coordonness 
STY ,U++ Ecriture id 
DECE Fin ? 
BNE AR1 Non 
B,U,X, PC 


* Les parametres du trace sont pointes 
* par X 
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TRACE PSHS 
LEAX saute n.octets 
LDB Type 
STE 
LDB } Couleur 
STE 
LDB Drapeau de couleur 
STB 
LDB Routine CHOIX 
JSR Appel extramon 
PULS 


END 


00000 Total Errors 


Listing pour machine MO6: 
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AE OO ONE ONE AA ONE 
* LES TORTUES * 
NON ARE ON OI I MOG KKAOK 
PUTC EQU s$02 AFFICHAGE 

GA7AS  EQU SA7AS Registre GA 

RA7DC EQU $A7DC Registre GA 


XL EQU  S$21A5 BORD GAUCHE 

YB EQU  $21A7 BORD HAUT 

XR EQU  S21A9 BORD DROIT 

YT EQU S21AB BORD BAS 

XXXXX EQU  S$21A1  Ordonnee 

YYYYY EQU  S21A3 Abscisse 

TRATYP EQU  S$2140 Type de trace 
COLOR EQU  S$219F Couleur 

WITH, EQU  S2288 Drapeau de couleur 
DEBZON EQU  S%216B Debut de ZONE 
FINZON EQU  4%216E Fin de zone 
*TYPE DE TRACE 

NORMAL EQU Normal 

TRANSP EQU Transparent 
INVERS EQU Inverse 

MODET  EQU Et logique 

MOD40  EQU Mode 40 colonnes 
MOD80  EQU Mode 80 colonnes 
BIMA4 EQU Bitmap 4 couleurs 
BIMA16 EQU Bitmap 16 couleurs 
MOPA2  EQU Page 2 

MOPAL  EQU Page 1 + 
OVPA2  EQU Overlay page 2 
OVPA1 EQU Overlay page 1 
TOVPAO EQU Triple overlay 
TOVPA1 EQU Triple overlay 
TOVPA2 EQU Triple overlay p2 
TOVPA3 EQU Triple overlay p3 
RBIMAS EQU BITMAP SPECIAL 
RBIMA  EQU BITMAP STANDARD 
ESC EQU Escape 

TER  EQU Terminateur 
RESETC EQU Reset 

ERRMSC EQU MESSAGE D'ERREUR 
CHOIX EQU Routine Choix 
XIG  EQU Interpréteur Graph 
*COULEUR 

NOIR  EQU 

ROUGE EQU 

VERT EQU 

JAUNE  EQU 

BLEU  EQU 

MAGENT EQU 

CYAN EQU 








0007 
0008 
0009 
0004 


0008 
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5E00 


5E00 
5E03 
5E04 


5806 
5E08 
K 5SEOA 
1 5E0C 
Er SE0E 
SE11 


5E13 
6809 


F 

5815 
î 5E18 
$ SE1B 
} SELE 


5E20 
5E23 





5E26 


SE4E 
5E76 


SE9E 
SEA2 
SEA6 
SEAA 
SEAE 
SEB2 
5EB6 





SEES8 
À SEBA 
SEBB 


SÈBE 
SECO 
SEC1 


SEC4 
SEC6 
i SEC7 
4] SECE 





SECF 
“4 SED1 
À SED2 





SED4 
SED6 
SED7 
5ED9 
SEDA 





SEDC 
SEDE 
SEDF 
SEE1 




















SBE2 
SEE4 


SEES 
SEE7 
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SEE8 
SEEA 
SEEB 
SEED 


SEEF 
SEF1 
SEF2 
5EF4 
SEFS 














SEF7 
SEF9 
SEFA 
SEFC 
SEFD 














B7 
39 
35 


34 
cé 


000€ 
000D 
000E 
000F 


0009 
00FF 
0000 
00FF 
0000 
00FF 
0000 
00FF 
00FF 
0000 
0000 
00FF 


001F 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 


0006 
0009 
000€ 
000D 
000E 
0010 
2151 


A7AS 


96 


06 
00 


103F 


86 
ED 
35 


34 


00 
5E00 
86 


7F 








BLANC EQU 7 

GRIS EQU 8 

ROSE  EQU 9 

VERTC  EQU SA Vert clair 

SABLE EQU #8 

BLEUCL EQU sc Bleu clair 

PARME  EQU sD 

BLEUCI EQU SE Bleu ciel 

ORANGE EQU SF 

*DRAPEAU 

AVECOU EQU #00 Avec couleur 
SANCOU EQU SFF Sans couleur 
VIDE EQU 00 

PLEIN EQU SFF 

CACHE  EQU 00 Tortue cachee 
MONTRE EQU SFF Tortue visible 
ABSOLU EQU 00 Absolu 

RELAT  EQU SFF Relatif 

BAISSE EQU SFF Crayon baisse 
LEVE EQU 00 Crayon leve 
RAPIDE EQU 00 Affichage rapide 
LENT EQU SFF Affichage Lent 
*::::MODE TORTUE 

CRAYON EQU $1F Trace en mode "tortue" 
ANIME EQU $20 Animation de la tortue 
SHOW  EQU #21 Tortue visible 

HEAD EQU  $22 Direction de la tortue 
ROT EQU #23 Rotation de la tortue 
ZOOUM EQU  %24 Taille de la tortue 
FVD EQU $25 Avance la tortue 
MOVE  EQU $26 Deplace la tortue 
INITOR EQU $27 Init en mode "tortue" 
CMPTOR EQU  $28 Compile form tortue 


Parametres lies aux tortues 





EQU 6 Position en X 
EQU 9 Position en Y 
EQU 12T Rotation 
EQU 13T Taille 
EQU 14T Direction 
TFORME EQU 167 Forme 
FACLO EQU $2151 Longueur de chaine 
ORG $5E00 
XCommutation des banques RAM 
BANQ STA GA7AS 
RTS 
PULS D,X, PC 


*Initialisation generale Sous /ASM 


INEXMA PSHS D 


LDB #RESETC Reset (pas s/BASIC 
sw12 

LDA #0 BANQUE 5 s/ BASIC 
JSR BANQ 

PULS D,PC 


* POINT D'ENTREE 
DEBUT PSHS A,B,X,U,Y, DP,CC 


LANGUAGE MODULE 2.0 


17 
88 
17 
35 


BD 
BD 


52 
32 
34 
52 
32 
34 


FFBE 


SEB8 
3BE2 
FF 


33 
35 


36 
35 
44 


0000 


9pc1 


04 


5E26 


FF 


9D5E 


04 


5E26 


FF 


5E13 
B000 


32 
52 


34 
52 
35 


00 


00 


0000 
00c7 


44 


30 
44 
36 
30 


LESR INEXMA 
LDX #PROG1 POINTEUR 
LESR ECRIMO TRACE LE DESSIN 
PULS A,B,X,U,Y, DP,CC, PC 
START JSR DEBUT 
STOP 
x "PLAGE" A TORTUES 
POLY RMB 40T Tortue 1 
* Notez: La tortue 1 se prenomme POLY 
TORT2 RME 40T 
TORT3 RMB 40T 


* SOURCE DE POLY 
SORPOL FCC /R32D25R64D50R64D25R64D50/ 


FINPOL FDB 00 
* TABLE GRAPHIQUE ET DE VISUALISATION 
* CTGVI 


PROG1 FDB AFFICH Mode d'affichage 
FCB 3+1 Longueur 
FCB ESC, MOD40, TER 





FDB TRACE Type de trace 
FCE 341 Longueur 


NORMAL, ROUGE, AVECOU 





FDE FENE Fenetre 
FCE 8+1 Longueur 
FDB 0,0,319T, 199T 





Declare une tortue 





DECTOR 
FCB 241 Longueur 
FDE POLY Tortue 1 
+ = 
FDB  COMPIL Compile 
FCB  5+1 Longueur 
FDE SORPOL  Pointeur source 
FCE FINPOL-SORPOL long. source 
FDE POLY 


Descripteur 





MODUL Module la vitesse 
FCB 341 Longueur 
FDE POLY Tortue 1 


Mode ‘"’len 









FDE MONTR Montre une tortue 
FCE 3+1 Longueur 

FDE POLY Tortue 1 

FCB MONTRE 


Tortue visible 





* 


LANGUAGE MODULE 2.0 





FDE DEPLA  Deplace une tortue 

FCE a+1 Longueur 
FDE POLY Tortue 1 
FDE 12 Deplacement 

* = 
FDE  MODIR Modif. direction 
FCE  5+1 Longueur 
FDE POLY Tortue 1 
FCE RELAT  Relatif 
FDB 257 25 emes de cercle 





FDE ROTAT Modif. rotation 
FCB  5+1 Longueur 

FDB POLY Tortue 1 

FCB  RELAT  Relatif 

FDB 367 36 emes de cercle 









SEFF 9D9F 
5F01 06 
SF02 5E26 
5F04 FF 
5F05 001E 


5F07 9DB1 
5F09 04 
5FOA 5E26 
SFOC FF 
S5SFO0D 0000 


2D00 


9D00 34 
9D02 6D 
9D04 27 
9D06 AD 


9D08 A6 
9DOA 30 
9D0C 20 
9D0E 35 


9D10 
9D29 34 
9D2B 103F 
9D2D SD 
9D2E 27 


9D30 8E 


9D33 1F 


10 
84 
08 
91 


84 
86 


F4 
90 


04 


oD 
9D10 


98 


FDB TAILLE Modif. de taille 
FCB  5+1 Longueur 
FDB POLY Tortue 1 
FCB RELAT Relatif 
FDB 30T K. de variation 





FDB ACTCRA Active crayon 
FCB 341 Longueur 

FDB POLY Tortue 1 

FCB BAISSE Crayon actif 
FDB 0000 FIN 


É22221 221221212122 RUSSE SSL... 


* ROUTINES UTILITAIRES * 
AA OR AE OO OO AE OK MOG AK 
ORG #9D00 


*# ELABORE LE DESSIN POINTE PAR X 
ECRIMO PSHS x 


AR3 TST ,X LA FIN ? 

BEQ FIMO QUI 

JSR C,X++1 TRACE UN ELEMENT 
* DU DESSIN 

LDA ,X N. D'OCTETS 

LEAX A,X NEW POINTEUR 

BRA AR3 
FIMO PULS X, PC 


* Le code de la routine extramoniteur 
* est contenu dans B 


MESSAG RMB 257 Reserve 25 octets 
TRAMON PSHS B 
swI2 Appel la routine 
TSTE Teste si erreur 
BEQ AVI Pas d'erreur 
LDX  #MESSAG Erreur. Le message 


* d'erreur est extrait et sauvegarde 
* dans MESSAG 


6809 LANGUAGE MODULE 2.0 


9D35 C6 


9D37 103F 
9D39 30 
9D3B 8D 


9D3D 35 


9D3F 34 
9D41 30 
9D43 E6 


9D45 27 
9D47 3F 


9D49 20 
9D4B 35 


9D4D 34 
9D4F 30 
9D51 10AE 
9D54 C6 
9D56 BD 
9D59 35 


9D5B 34 
9D5D 30 
9D5F 10AE 
9D62 A6 
9D64 C6 
2D66 BD 
9D69 35 


9D6B 34 


14 


1F 
02 


84 


14 
01 
80 


04 
02 


F8 
94 


30 
01 
84 
27 
9D29 
BO 


30 
01 
81 
84 


9D29 
Bo 


30 


TFR B,A No d'erreur 

LDB #ERRMSC Routine de traite- 
* ment de l'erreur 

syI2 

LEAX -1,X 

BSR AFFICH Affichage du mes- 
* sa 
AVI PULS B,PC 
Ni tes sa este PR CR ie 


+ Affiche une chaine de caracteres pain- 


* tee par X 


AFFICH PSHS B,X 

LEAX 1,X 
AFF1 LDB 4X+ Un caractere de la 
* chaine 

BEQ AV2 Un zero ? 

CALL PUTC Non.Alors on affi- 
* che 

ERA AFF1 On continue 





+ Declare une tortue dont le descripteur 
+ est passe en parametre. 
DECTOR PSHS  X,Y 








LEAX 1,Xx 
LDY ,X Pointeur descripteur 
LDB #INITOR Initialisation 
JSR TRAMON 
PULS X,Y, PC 
* Montre ou cache la tortue dont le des- 
* cripteur est passe en parametre. 
+ Les parametres sont passes dans l'or- 
* dre suivant: 
* -Descripteur 
* -Drapeau ( Visible ou Cache) 
MONTR PSHS X,Y 
LEAX 1,X 
LDY , X++ Descripteur 
LDA X Tortue visible 
LDB #SHOW 
JSR TRAMON 
PULS X,Y, PC 


* Deplace la tortue dont le descripteur 
* est passe en parametre. 


* Les parametres sont passes dans l'or- 
* dre suivant: 


* -Descripteur 
* -Longueur du deplacement 
DEPLA PSHS  X,Y 


6809 LANGUAGE MODULE 2.0 


9D6D 30 
9D6F 10AE 
9D72 AE 
9D74 C6 
9D76 BD 
9D79 35 


9D7B 34 
9D7D 30 
9D7F 10AE 
9D82 A6 
9D84 AE 
9D86 C6 
9D88 BD 
9D8B 35 


9D8D 34 
9D8F 30 
9D91 10AE 
2D94 A6 
9D96 AE 
9D98 C6 
9D9A BD 
9D9D 35 


o1 
81 


30 
01 
81 
80 
84 
22 
9D29 
Bo 


30 
o1 
81 





LEAX 1,X 
LDY ,X++ Descripteur 
LDX ,X Longueur du deplacement 
LDB  #FWD 
JSR TRAMON . 
PULS X,Y, PO 
Ronan corses ne . 
* Modifie la direction de la tortue dont 
+ le descripteur est passe en parametre. 
* Les parametres sont passes dans l'or- 
* dre suivant: 
* -Descripteur 
* -Drapeau ( Absolu ou relatif) 
* -Angle 
MODIR PSHS  X,Y 
LEAX 1,X ÿ 
LDY ,X4+ Descripteur 
LDA ,X+ Relatif/absolu 
LDX ee Angle 
LDB #HEAD 
JSR TRAMON 
PULS X,Y,PC 


* Rotation de la tortue dont le descrip- 
+ -teur est passe en parametre. 
* Les parametres sont passes dans l'or- 
+ dre suivant: 

* -Descripteur 
* -Drapeau ( Absolu ou relatif) 
+ -Angle de rotation 

R 


OTAT PSHS X,Y 
LEAX 1,X 
LDY ,X++ Descripteur 
LDA ,X+ Relatif/absolu 
LDX ‘x Angle de rotation 
LDB  #ROT 
JSR  TRAMON 


PULS X,Y, PC 


9D9F 


9DA1 
9DA3 
9DA6 
9DA8 
9DAA 


6809 


ADAC 
9DAF 


9DB1 
9DB3 
9DES 
9DB8 
9DBA 
9DEC 
9DBF 


9pCc1 
9DC3 
9DC5 
9Dpcs8 
9DCA 
9DcC 
9DCF 


9ppD1 


9DD3 
9DDs 
SDD8 
9DDA 
9DDC 
9DDE 
9DEO 


6809 


ODE2 
9DE4 
9DE6 
9DES 
9DEA 
QDED 


9DEF 
9DF1 
O9DF3 
9DF6 
9DF8 
9DFB 
9DFD 
9E00 
9E02 
9E05 


9E07 
9E09 
9E0B 
9E0E 
9810 
9E13 
9E16 
9E17 
9E19 


9E1B 
SE1D 
9E1F 
9E21 
9E24 
9E26 
9E29 
9E2B 
9E2E 
9E30 
9E33 


00000 Total Errors 


Prochain épisode : Les routines mathématiques de 
l'extramoniteur te 


34 


30 
10AE 
16 
AE 
cé 


30 


01 
81 
80 
84 
24 


SR TL MR Re RP RR CEUN TT 


# Modifie la taille de la tortue dont le 

x descripteur est passe en parametre 

* Les parametres sont passes dans l'or- « 
* dre suivant: . 
* -Descripteur 

* -Drapeau ( Absolu ou relatif) 

* -Variation de taille “nn 
T 


LANGUAGE MODULE 2.0 


BD 
35 


34 
30 
1048 
A6 
ce 
BD 
35 


34 
30 
10AE 
A6 
cé 


35 


34 


30 
104AE 
EC 
ED 
EC 
ED 
EC 


9Dp29 
Bo 


30 
o1 
81 
84 
1F 
9D29 
BO 


30 
o1 
81 
84 
20 
9D29 
Bo 


30 


01 
81 
81 
26 
81 
29 
81 





AILLE PSHS  X,Y 
LEAX 1,X à 
LDY ,X++ Descripteur 1 
LDA 1, X+ Absolu/relatif 
LDX ne Variation de taille 
LDB #ZOOM 
JSR TRAMON 
PULS X,Y,PC 
LORPETEEES “ . a TR ns 5 0 0» 04 RUE 
* Active ou desactive le crayon de la 
* tortue dont le descripteur est passe 
+ en parametre 
* Les parametres sont passes dans l'or- | 
* dre suivant: à 
* -Descripteur à 
* -Drapeau ( Actif/inactif) 
ACTCRA PSHS  X,Y ' 
LEAX 1,X : 
LDY ,X++ Descripteur 
LDA Ge Actif / inactif 
LDB 
JSR 
PULS X,Y,PC 
Rovers esta usssrsuss vorereensmise 
* Module la qualite d'affichage de la 
* tortue dont le descripteur sst passe 
x en parametre 
* Les parametres sont passes dans l'or- 
x dre suivant: 
* -Descripteur 
* -Drapeau ( Rapide ou Lent) 
MODUL PSHS  X,Y 
LEAX 1,X 
LDY 4 X++ Descripteur 
LDA ,X Rapide/lent 
LDB #ANIME 
JSR TRAMON 
PULS X,Y,PC 
"PARA N ARE) HN ORS EE ve Ver EN TER 





* Modifie les parametres du descripteur 
* de tortue. 

* Les parametres sont passes dans l'or- 
* dre suivant: 


LANGUAGE MODULE 2.0 


ED 
A6 
A7 
cé 
BD 
35 


34 
30 
10AE 


B7 
AE 
30 
cé 
BD 
35 


34 
30 
CE 
cé 
10AE 
10AF 
5A 
26 
35 


34 
30 
E6 
F7 
E6 


F7 
E6 
F7 
cé 
BD 
35 


54 
01 
2145 
04 
81 
c1 


F7 


14 
o1 
80 
2140 
80 
219F 
84 
2288 
1c 
9D29 
94 


0000 


* -Descripteur 

* -Abscisse de la tortue 

* -Ordonnee de la tortue 

* -Rotation . 

* -Taille à 

* -Direction 

MODIF PSHS X,Y 
LEAX 1,X 
LDY ,X++ Descripteur É 
LDD ,X++  Abecisse 1. 
STD 6,Y 4 
LDD ,X++  Ordonnee - | 
STD 9,Y 
LDD ,X++  Rotation/taille 
STD 12T,Y 
LDA  ,X+ 
STA  14T,Y Direction 
LDB  #MOVE 
JSR  TRAMON 


* Compile une form de tortue. 
+ L'ordre des parametres est le suivant: 





* -Pointeur sur la chaine source 
* -Longueur de la chaine source 
* -Pointeur sur le descripteur 
COMPIL PSHS X,Y 
LEAX 1,X 
LDY 4 X++ Pointeur source 
LDA ,X+ Longueur ' 
STA FACLO 
LDX ,X++ Pointeur descripteur 
LEAX 167, X Debut de la zone 
LDB #CMPTOR 
JSR TRAMON 


X,Y, PC 





* Defini une fenetre dont les coordon- 
#* -nees sont pointees par le registre X 

















FENE PSHS B,U,X ‘ 
LEAX 1,X saute n.octets 
LDU #XL ler registre 
LDB #4 4 valeurs 
AR1 LDY ,X++ Lecture coordonn 
STY ,U++ Ecriture CT 
DECB Fin ? 
BNE AR1 Non 
PULS B,U,X, PC 
LOPFETTITE .. DENT TEITEE sus vessuss 
+ Les parametres du trace sont pointes ï 
* par X : 
TRACE PSHS B,X : 
LEAX 1,X saute n.octets 
LDB ,X+ Type 
STE TRATYP 
LDB 1x Couleur 
STE COLOR , 
-  LDB x Drapeau de couleur 
STB VITH 
LDE #CHOIX Routine CHOIX 
JSR TRAMON Appel extramon Ë 
PULS  X,B, PC ee 
END : 








TRIBUNE 





La saga des apprenticiels 


Lu des ordinateurs 
dans le collège R. Cassin de 
Chanteloup-les-Vignes a donné 
lieu à une première 
présentation générale dans 
notre numéro de décembre 
4986. II nous semble 
intéressant de pousser plus loin 
ce travail par la description de 
lun des apprenticiels. 


CESURE permet la segmentation de chaînes écrites. 
Pour se convaincre de l'importance de cette segmenta- 
tion dans la capacité qui est la notre de “ponctionner” du 
sens dans un message écrit, il suffit d'essayer de lire un 
texte “concaténé”, c'est-à-dire un texte d’où toute seg- 
mentation (espaces et apostrophes) a disparu. Voici un 
exemple : 


llyadesgensquinaimentpaslesgensquinaimentpaslesbêt 
eSquinaimentpaslesbêtesquinaimentpaslesgensyatildes 
bêtesquinaimentpaslesbêtesquinaimentpaslesgensiene 
saispasetcommentlesavoircenestpasparcequelesgens 
parlentauxbêtesquelesbêteslescomprennent. 


Avant d'indiquer l'importance de cette activité, il faut 
remarquer que ce travail est théoriquement possible à la 
main. On peut imaginer qu'une phrase, écrite sans seg- 
mentation sur une bande, puisse être fournie aux en- 
fants, ainsi qu'une paire de ciseaux et de la colle. Imagi- 
ner la séance. ce serait les abandonner, face aux 
obstacles manipulatoires (précisions du coup de ciseaux 
et surtout problème des corrections éventuelles : com- 
ment recoller sans laisser de trace ?). 

On le voit, le rôle de l'ordinateur est, ici, irremplaçable. Il 
reste évidemment à discuter l'importance, en terme 
d'apprentissage, de cette activité de segmentation. En 
voici, à partir d'un exemple, le scénario. Un texte est 
entré par l'enseignant grâce à l'Editeur, c'est-à-dire, rap- 
pelons-le, grâce au programme central de la contigura- 
tion, qui s'apparente à un traitement de texte. Dans ce 
texte, des séparateurs (les /) sont placés qui délimiteront 
les blocs successifs à segmenter. 


Il y a des gens/ qui n'aiment pas/ 

les gens qui n'aiment pas les bêtes./ 

D'autres qui n'aiment pas/ 

les bêtes qui n'aiment pas les gens./ 

Y a-t-il des bêtes qui n'aiment pas 

les bêtes qui n'aiment pas les gens ? 

Je ne sais pas. / Et comment le savoir ? / 

Ce n'est pas parce que les gens parlent aux bêtes que les 
bêtes les comprennent. / 

/Ainsi nous ne saurons jamais qui / 

des gens ou des bêtes sont les plus bêtes. / 

Pourtant beaucoup se prétendent moins bêtes que d'au- 
tres / 

qui se disent eux-mêmes moins bêtes que d'autres en- 
core. / 

Mais personne ne se vante d'être plus bête qu'un autre. / 
Les moins bêtes se disent moins intelligents qu'ils ne le 
paraissent. / 

Ils savent bien qu'ils ne savent pas grand chose. / 

Alors ils se taisent pour écouter / 

ceux qui ne savent rien et qui ne veulent pas le savoir. 


Le programme “CESECRIT" va directement utiliser ce 
texte selon le scénario suivant : l'écran de l'ordinateur se 
partage en deux zones. Une zone haute dans laquelle le 
texte va se reconstituer, et une zone basse dans laquelle 


les blocs concaténés apparaissent. Sous ce bloc, un re- 
père vertical apparaît (au milieu de la chaîne au début) et 
peut être déplacé par les touches -> et <-. Il représente 
les “ciseaux”. 

Quand l'enfant veut segmenter, il appuie sur la barre 
d'espace pour insérer un espace, ou sur une touche “” 
pour insérer une apostrophe. Aucun autre caractère ne 
peut être ni inséré ni supprimé. En revanche, il est évi- 
demment possible de supprimer des espaces ou des 
apostrophes. Pour insérer, on utilise un repère vertical 
qui se place entre les caractères, alors que pour corriger 
il est horizontal et se place sous les caractères que l'on 
veut effacer. Ces détails techniques ne sont pas secon- 
daires. 

Dans une première version le repère était le même et se 
déplaçait sous les caractères. Les enfants ne savaient 
pas si le repère devait se placer sous le “s” de “les” ou 
sous le “g” de “gens” pour séparer les deux mots. Avec le 
repère vertical, l'ambiguïté est levée. 


Ilyadesgens  1lyadesgens 


[ 
Enfin, à chaque instant, l'enfant peut demander une éva- 
luation de la segmentation qu'il a mise en place. Cette 
évaluation lui indique le nombre de mots “exacts”, c'est- 
à-dire correctement isolés dans le bloc en cours de tra- 
vail. Lorsque le bloc est entièrement segmenté, il passe 
dans la zone supérieure de l'écran et s'inscrit dans la 
disposition qui était celle réalisée lors de l'écriture du 
texte par l'enseignant (les séparateurs “/” n'apparaissent 
pas alors). 
Voici, à partir du texte précédent des étapes d'un travail 
possible : 


Ilyadesgens 


ne es : 
LA SEGMENTATION DE LA CHAINE AYANT ETE CORRECTEMENT ACHEVEE 
DEBUT DE RECONSTITUTION DU TEXTE ET APPARITION DU BLOC SUIVANT 


: I1 y a des gens qui n'aiment pas 


11 y a des gens 
les gens qui n'aiment pas les bêtes. 
D'autres qui n'aiment pas 


3 L 
: ui n'aiment pas : 
L L 
L LL 
: les gens qui n'aiment pas les gens: : 
L L 
: L 
L , 
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tainsi de suite, jusqu'à la reconstitution complète du 
texte que l'élève pourra ensuite imprimer afin de garder 
une trace écrite de son travail. 


Quelques remarques sur ce type d'activités : 

— Pour les enseignants de Chanteloup-les-Vignes, la 
non-maîtrise de la segmentation de la chaîne écrite est 
un te en deçà de laquelle aucune compréhension vérita- 
ble seuil, une limide l'écrit n'est possible et aucun travail 
orthographique n'a de sens. Il ne suffit pas qu'empiri- 
quement les enfants sachent que la chaîne écrite est 
segmentée. Ils le savent tous, ou plus exactement ils le 
perçoivent tous dans les écrits qui les entourent. Or le 
travail de segmentation n'est le plus souvent travaillé que 
dans la chaine orale, d'où le risque de croire qu'il y a 
adéquation entre les segmentations orales et écrites. 
Certes, beaucoup d'enfants arrivent empiriquement à 
maîtriser la segmentation de la chaîne écrite. Ceux avec 
lesquels travaillent les enseignants de Chanteloup-les- 
Vignes sont dans une situation de confusion complète 
entre les registres de l'oral et l'écrit, et seul un travail (au 
sens où l'on travaille, on modifie, on agit sur un objet) 
peut leur permettre de sortir de leurs difficultés. Ce tra- 
vail, essentiel dans une perspective de réapprentissage, 
serait tout à fait intéressant pendant les premières an- 
nées d'apprentissage (CP et CE1). L'un des enseignants 
du collège a, du reste, pu mesurer l'impact de ce travail 
avec des enfants de ces niveaux. 

— Au cours du travail, certains éléments apparaissent : 
a) Conflit global/local. Certains enfants ont tendance à 
extraire par perception locale des mots qu'ils reconnais- 
sent, et ce indépendamment du sens global du bloc ou du 
texte. Exemple : 


lesgensquinaimentpaslesbêteslesgensquin aime 
ntpaslesbêtes le mot “aime”lesgensquin aime nt pas 
lesbêtes le mot “pas” 


Le “nt” isolé pose alors problème, certains enfants es- 
sayant de l'effacer, ce qui n'est pas possible avec le logi- 
ciel. On le voit, àtravers l'activité de segmentation même, 
l'enfant saisira certains faits orthographiques signifiants. 
Un autre type de conflit peut surgir, et qui lui réfère au 
sens global du texte. Par exemple, vers le milieu du texte 
on a: 

“etcommentlesavoir” 

Deux segmentations possibles : 
etcommentlesavoir ——>Etcomment les avoir ou ——> 
Et comment le savoir 

Là, c'est le recours au sens de ce qui a déjà été recons- 
truit, qui permet de lever l'ambiguïté. L'intervention pé- 
dagogique consistera alors à inciter l'enfant à relire ce 
qu'il a déjà reconstitué, à l'interroger sur le sens de ce 
qu'il a déjà mis en place. 

Ces interventions de l'enseignant sont essentielles, mais 
il doit apprendre à ne pas intervenir trop tôt. C'est lors- 
que, POUR L'ENFANT, à SON niveau, il y a conflit, que 
l'intervention de l'adulte est pertinente, mais pas avant. 
b) Une amélioration très rapide de l'efficacité des en- 
fants, et le transfert de certaines découvertes dans la 
suite du travail. Nous avons pu constater que, au cours 
même d’un travail, les enfants deviennent de plus en plus 
efficaces, certaines prises de conscience à l'instant T(i) 
se transférant à l'instant T(i+n). Il faut y penser, lors de la 
mise en place des séparateurs dans le texte de référence. 
Ainsi, on sait que la présence d'une structure négative 
avec “n”" pose des problèmes aux enfants. On aura alors 
intérêt à ne pas placer cette structure dans un bloc trop 
long lors de sa première apparition (les blocs devant 
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toujours être cohérents au niveau du sens qu'ils suppor- 
tent). 

En revanche, si la même structure réapparaît, il est sou- 
haitable de l'insérer dans un bloc plus long et different. 
La mise en place des séparateurs dans le texte initial est 
un acte pédagogique essentiel. Dans letexte utilisé icien 
exemple, la première rencontre avec la forme négative 
sur le verbe aimer se fait sur le bloc “qui n'aiment pas /". 
Ensuite cette même structure, se retrouvera insérer dans 
des blocs de longueur variée : 


D'autres qui n'aiment pas les bêtes qui n'aiment pas les 
gens. / Ÿ a-t-il des bêtes qui n'aiment pas les bêtes qui 
n'aiment pas les gens ? / 


Enfin, remarquons que tant le découpage des blocs que 
leur mise en page visent à la compéhension du texte à 
son véritable niveau et non pas sous la forme : 


Il y a des gens 
qui n'aiment pas les gens 
qui n'aiment pas les bêtes. 


première “lecture” qui a tendance à être celle des en- 
fants. 


Il y ades gens / qui n'aiment pas / 
les gens qui n'aiment pas les bêtes. / 


En faisant un bloc de “les gens qui n'aiment pas les 
bêtes” eten le mettant ainsi en page, une certaine lecture 
de ce texte, au deuxième degré, est favorisée. Le choix 
des textes, leur mise en page et le découpage en bloc est 
ainsi entièrement de la Liberté et de la Responsabilité de 
l'enseignant. C'est peut-être là la chose la plus impor- 
tante. Il est important de préciser que les apprenticiels 
seront bientôt disponibles sur les compatibles PC et se- 
ront diffusés par le dynamique éditeur toulousain Lan- 
gage et informatique. 

Denis Ballini 
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Eurydice 
communique 


“La formation et la préparation des jeunes à la vie 
adulte et professionnelle” est lethème au centre des 
préoccupations actuelles de la commission “Educa- 
tion et politique de la jeunesse” de la C.E.E. Suite à 
un programme d'action adopté le 4 mars dernier, 
qui porte sur une période de cinq ans. Des sommes 
importantes lui ont été allouées : 4 millions d'ECU 
pour1987, et 10 millions d'ECU pour 1991. II s'agit 
de préparer les 53 millions de jeunes européens de 
14 à 25 ans à mieux appréhender l'Europe de de- 
main en leur offrant une, et si possible deux, année 
de formation professionnelle en plus de leur scolari- 
té obligatoire. 

Les technologies nouvelles en général, et l'informa- 
tique en particulier, y tiendront une grande place. 
Une des priorités de ce plan est de permettre la plus 
grande circulation possible des idées, des relations 
d'expériences et de projets. TEO peut participer à 
son niveau à ce brassage d'idées. Les lecteurs qui 
souhaitent participer à ce débat sur la formation 
complémentaire des jeunes dans le domaine des 
technologies nouvelles peuvent écrire au journal. Îl 
faut simplement oser relater sa “petite expérience”, 
car c'est le regroupement de nombreux rus qui fait 
les grands fleuves. 


Le LSE en 1987 


Le LSE sur les micro-ordinateurs compatibles PC, 
dans les établissements scolaires, en 1987, pour- 
quoi ? 

La réponse proposée ci-dessous essaye de dépas- 
sionner le débat pour être le plus réaliste possible. 
Si elle donne envie à des lecteurs de donner leur 
réponse à cette question, nous nous ferons un plai- 
sir de leur donner la parole. 

Il n'est pas question de rentrer dans un faux débat 
comparant les performances, la portabilité ou l'uni- 
versalité du LSE par rapport aux diverses implémen- 
tations du Basic ou du Pascal. L'intérêt premier du 


LSE est d'être le support de la plupart des logiciels 
éducatifs destinés aux élèves des lycées et des col- 
lèges. Cette situation correspond à un héritage de 
recherche et de conception de didacticiels qui ont 
mené la France à une place enviée dans ce domaine. 
Cetétat de fait durera encore au moins deux ou trois 
ans, temps nécessaire pour la conception de didac- 
ticiels de qualité. Aujourd'hui, plus de 100 didacti- 
ciels sont disponibles, en LSE, sur compatibles PC. 
Trois catégories de logiciels permettent de mieux 
apprécier la nécessité du LSE : 

— les didacticiels utilisables dans des disciplines 
pour lesquelles l'effectif d'élèves au plan national 
est peu élevé, et donc quasiment inexistants sous 
d'autres langages de programmation (italien : 1 lo- 
giciel ; espagnol : 2 logiciels ; portugais : 3 logiciels ; 
philosophie : 4 logiciels ; sciences et techniques in- 
dustrielles : environ 10 logiciels). 

Toutes les disciplines plus fréquentes sont bien sûr 
dotées de logiciels écrits en LSE. 

— Les didacticiels porteurs d'une démarche péda- 
gogique novatrice qui ont donc nécessité une pé- 
riode d'élaboration alliant recherche et expérimen- 
tation sur le terrain. Parmi ceux-ci, on peut citer par 
exemple : 


© des outils utilisables pour les enseignements litté- 
raires (Roman, présenté à Beaubourg en mars 1987, 
et Lira, créé au sein de l'association EPI pour l'en- 
trainement à la lecture rapide) ; 

© des gestionnaires de documentation (Orchidée et 
Orchi 16 permettant d’initier à la recherche docu- 
mentaire). 

© des outils mathématiques (Statistikon, pour l'é- 
tude des statistiques) ; 

© des gestionnaires de bases de données bien 
adaptés à l'enseignement (Secos, pour les Sciences 
Economiques et Sociales, et Leman, en écologie) ; 
© des éditeurs de texte (Texte) et de graphique 
(Edigr). 

— Des langages auteurs et des gestionnaires de 
QCMinterfacés avec un langage de programmation 
(le LSE, et donc, l'assembleur) leur ouvrant la porte 
à des analyses plus fines, à des traitements numéri- 
ques poussés et à des pilotages de moyens audiovi- 


suels divers. I! s'agit de deux langages auteurs, Visa 
et Ulys, et des générateurs de QCM, XO et Qasoar. 
Un deuxième argument joue en faveur de la pré- 
sence du LSE dans le système éducatif. || s'agit du 
système LSE 83, écrit par le professeur Jacques 
Arsac autour du langage lui-même. Ce logiciel est 
prévu comme outil pédagogique d'initiation à la 
programmation dans les options informatique des 
lycées. 


Le catalogue de logiciels 
du CNDP 


Au cours de sa conférence de presse du 5 février 
1987, René Monory, ministre de l'Education natio- 
nale, a autorisé le CNDP à diffuser tous ses nou- 
veaux logiciels après validation de l'inspection gé- 
nérale. Cette décision heureuse va permettre aux 
enseignants de disposer de près de 70 didacticiels 
issus d'un travail de deux ans sur les orientations du 
dernier plan de production de logiciels éducatifs du 
Ministère. 
Parmi ces produits, on peut relever : 
— une série de logiciels d'environnement LOGO: 
musical, gestion de la 3e dimension, formateur et 
transformateur de textes, analyseur de phrases, si- 
mulation du langage PROLOG ; 
— deux langages auteurs disponibles sur toutes les 
machines EN, VISA et ULYS ; 
— un outil d'initiation à la recherche documentaire, 
Orchi 16; 
— un logiciel permettant de sensibiliser à la vision 
“D” et une nouvelles série d'imagiciels ; 
— un logiciel de reconnaissance des arbres et la 
dernière version du logiciel de détermination des 
champignons ; 
— des logiciels de lettres de la nouvelle génération 
comme Roman qui a fait les beaux jours de Beau- 
bourg en mars dernier ; 
— un logiciel d'initiation à la langue arabe. 
TEO s'est déjà fait l'écho de certains de ces pro- 
duits. Il reviendra sur les plus novateurs et présente- 
ra des bancs d'essais des nouveaux venus. 

JODE 
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La mallette 
de communication 


Un serveur pour TOB, 
TO9 et TO9+ 


Plusieurs millions de minitels ont déjà été 
installés en France, dont les utilisations 
sont nombreuses et diverses. Mais savez- 
vous qu'il est aisé de monter son propre 
serveur, avec simplement un micro- 
ordinateur, un logiciel de communication 
et de gestion de la voie, et un modem, 
qu'il soit incorporé comme dans le TO9 ou 
ajouté comme dans le TO8. ' 
La mallette FIL contient tout ce qu'il faut 
pour créer son propre micro-serveur 
vidéotex monovoie. Deux disquettes — 
l'une pour la gestion de communication et 
l'autre contenant un logiciel (PRAXITELE) 
de composition d'images Télétel, images 
en couleurs représentant des pages 
écrans (25 lignes de 40 colonnes) — 
permettent de mettre le micro au bout 
du téléphone et de le transformer en 
serveur qui recevra les appels envoyés 
par minitel. 

Il reste à imaginer toutes les applications 
possibles à l'aide de ce logiciel qui marie 
le téléphone et l'ordinateur : démarche 
commerciale, messagerie, journal minitel 
de club ou d'association, jeux, éducation , 
petites annonces, etc. 


Le micro-serveur 

La plus grande partie du logiciel est 
évidemment consacrée au micro-serveur. 
Ses capacités sont fixées comme suit : 98 
abonnés au maximum, 16 messages par 
abonné, 1024 messages au total et 30 
fichiers structures avec au maximum 20 
fichiers écrans par structure. Le nombre 
d'écrans est largement suffisant pour que 


IMAGE LOGICIEL 


les abonnés au serveur ne passent pas 
tout leur temps au téléphone, pardon au 
minitel, et laissent un peu l'accès aux 
autres. Il s'agit en effet bien d'un serveur 
monovoie : une seule personne à la fois 
peut téléphoner et avoir accès aux 
services. 

Trois grands services sont prévus. Le 
premier de ces services est la 
consultation d'un journal pouvant 
comporter jusqu'à 85 pages écrans 
graphiques et/ou textes qui vont se 
structurer en arborescence à la 
convenance de l'administrateur et du 
créateur. Ces pages contiennent 24 lignes 
de 40 caractères, comme celles déjà 
connues sur minitel. Ces pages seront 
créées, organisées, modifiées à l'aide du 
logiciel. Le deuxième grand service est la 
messagerie, c'est-à-dire le support 
technique et la gestion d'abonnés avec, si 
nécessaire, leur mot de passe, les boîtes 
aux lettres (on laisse des messages à 
d'autres abonnés) et les petites 
annonces. Ce service est totalement 
comparable à ceux proposés par les 
messageries habituelles du minitel. A 
noter que le logiciel détruit les messages 
après consultation par les destinataires. 
Dans le cas des petites annonces, 
n'importe qui pourra les consulter par 
simple appel au minitel. Si vous voulez 
faire de la promotion commerciale de 
quelque nature que ce soit, Micro-serveur 
est un premier pas. L'application mot de 
passe garantit la sécurité, car chaque 
abonné est reconnu d'une part par son 
identification et d'autre part par un mot 
de passe. Le troisième grand service de 
Micro-serveur est le téléchargement de 
fichiers. Cette fonction met à disposition 
des abonnés des fichiers qu'ils pourront 
télécharger, c'est-à-dire récupérer, par 
l'emploi d'un micro par l'utilisateur des 
fichiers de programme ou des textes. 


Le logiciel est organisé en menus, dont le 
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LOGICIELS 


menu serveur qui transforme le micro en 
serveur. Là, la seule commande accessible 
sera la déconnexion par la touche stop 
simulée comme sur le minitel. Un autre 
menu simule le fonctionnement en mode 
serveur. Ce mode est celui que l'on utilise 
pour tester si le serveur remplit bien son 
rôle et pour simuler l’activité au clavier 
minitel. Le micro joue donc à la fois le rôle 
du minitel et du serveur. C'est également 
dans ce mode que l'administrateur peut 
consulter et viderles boîtes aux lettres en 
messagerie libre (sans mot de passe). Le 
troisième menu est celui de 
l'administration avec l'ensemble des 
fonctions de création, de modification et 
de suppression des écrans, des structures 
et des applications. Il y a également une 
fonction Statistiques qui permet de 
connaître l'état du trafic, le nombre de 
connexions, le nombre de messages émis 
et purgés. 

Les autres fonctions portent sur les 
disques et la création des listes 
d'abonnés. Un manuel de 180 pages 
explique, à l'aide d'exemples et de 
références, le fonctionnement de Micro- 
serveur. 


PRAXITELE 


La référence au sculpteur grec d'Athènes 
est uniquement là pour souligner le côté 
artistique de ce logiciel, deuxième 
disquette de la mallette. Il s'agit en effet 
d'un logiciel de création d'images aux 
normes Télétel mêlant le graphisme et 
les textes. Ces images peuvent être 
composées en huit couleurs, soit avec le 
crayon optique, soit issues d'images vidéo 
par l'intermédiaire d'une caméra. Neuf 
modes de travail sont proposés dont le 
dessin libre, le mode semi-graphique 
Télétel, le coloriage, la sauvegarde ou 
l'impression de tout ou partie d'une 
image. On y trouve aussi un mode loupe, 
et un mode texte. Les images créées 
seront en 24 lignes de 40 colonnes et 
pourront être réutilisées, par sauvegarde, 
avec l'option Télétel, dans les 
arborescences du micro-serveur. 

Si l'on dispose de l'interface de 
digitalisation et d'une caméra vidéo, il 
sera possible de filmer une image et de la 
convertir en caractères semi-graphiques 
Télétel. Il est ensuite possible de modifier 
et de colorier l'image. Les menus sont 
proposés sous forme de pictogrammes. 
Toutes les fonctions classiques de 
composition sont présentes et le logiciel 
est assez simple d'emploi, rapide, et les 
pages Vidéotex sont de qualité 
comparable à celle que l'an obtient sur les 
minitels. 

Avec cet ensemble, les possesseurs de 
TO8 et TO9 sont prêts à brancher leur 
micro sur le téléphone et à créer un 
serveur, certes monovoie mais qui peut 
rendre bien des services, représenter une 
activité d'animation moderne et surtout 
servir de superbe initiation aux moyens 
désormais classiques de communications. 
La télématique prend de plus en plus 
d'importance et son univers s'ouvre un 
peu aux possesseurs de micro- 
ordinateurs. C'est une bonne chose que 
d'aider à cette découverte et FIL le fait 
grâce à cette mallette (695 F ttc). 








MServeur 


Créer son propre 
serveur 


Ce logiciel de Mictel est un utilitaire 
permettant de créer un serveur avec un 
Thomson de la ligne TO. Il s'agit d'un 
véritable langage de programmation, 
comme Pascal ou Logo, avec ses 
procédures et ses fonctions. 

Après chargement, l'écran devient blanc 
et se vide. Seul un point d'interrogation 
noir en bas de l'écran est affiché : 
Mserveur attend la première commande, 
qui doit être un nom de fichier. Le logiciel 
le cherche alors sur disquette puis en 
mémoire, et s'il ne le trouve pas, en 
conclut que vous désirez créer un 
nouveau fichier. Un pointeur de texte 
apparaît alors, et vous pouvez commencer 
à programmer votre serveur. 

Pour ce faire, Mserveur offre plusieurs 
commandes qui gèrent toutes les actions 
possibles sur un minitel : suite, retour, 


- sommaire, etc. Le langage de Mserveur 


est un langage de programmation évolué. 
Il n'accepte qu'une instruction par ligne, 
et comporte des labels. Il est en fait très 
proche du C, langage utilisé pour la 
programmation de la plupart des 
serveurs de Teletel. 

De plus, il est interfacé avec le Basic du 
Thomson, dont il utilise toutes les 
instructions de traitement des chaînes de 
caractères et des nombres, ce qui peut se 
révéler très utile. Et, fin du fin, il est en 
français! Par exemple, on n'écrit pas 
GOTO PROCEDURE, mais FAIRE 
PROCEDURE, ni même IF MACHIN=TRUC 
ALORS BIDULE ELSE CHOSE, mais SI 
MACHIN=TRUC ALORS BIDULE SINON 
CHOSE. Cela paraît bien peu de chose, 
mais plus d'un programmeur appréciera 
de ne pas avoir à travailler avec un 
dictionnaire anglais-français à portée de 
main en permanence. 

Outre la définition, mais surtout la 
programmation de l'arborescence d'un 
serveur, MServeur offre des instructions 
de gestion des BAL (boîtes aux lettres) 
très intéressantes: OUVREBAL par 
exemple, qui, comme son nom l'indique, 
permet à l'utilisateur de s'ouvrir une BAL 
(définie par son nom — de 1 à 8 
caractères —, et son code d'accès (de 1 à 
4 caractères) et d'y recevoir des 
messages ; FERMEBAL, qui sauve le 
contenu de la BAL sur disquette ; EFFBAL, 
qui autorise le programmeur à effacer le 
contenu d'une BAL spécifique 
(messages...), à condition d'en connaître 
le code d'accès, et bien d'autres encore 
qu'il serait fastidieux de décrire ici. 

Il est à noter que Mserveur accepte 
jusqu'à 255 BALSs au maximum, ce qui est 
bien suffisant pour un serveur de taille 
moyenne. 

Un éditeur de pages vidéotex, inclus dans 
le logiciel Mserveur, permet de dessiner 
facilement ses pages écran minitel. Mais 
comme rien n'est jamais parfait, 
Mserveur a quelques restrictions: il est 
préférable de n'utiliser que des variables 
dont-le nom n'excède pas deux 
caractères; et, hélas!, il ne permet la 





création que de serveurs monovoie. 
Mserveur se présente donc comme étant 
un logiciel d'une excellente qualité, qui 
permettra aux fous de la télématique de 
réaliser leur rêve en créant leur propre 
serveur. Pour TO8, TO9, TO9+ : 490 F. 
N.B. : La souris est indispensable pour 
l'éditeur d'écrans. 

MICTEL 

Denis Jarril 





MCopie 

Routine pour recopier 
vos créations 
graphiques. 


En règle générale, les hardcopys d'écrans 
ne traitent facilement que les images 
monochromes, en travaillant sur le fond 
et les formes. Si le fond est noir et les 
formes ou points blancs, ils leur arrivent 
de vous servir une impression différente 
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en noir sur fond blanc. MCopie, lui, 
analyse chaque point de l'écran en 
prenant sa couleur en compte. 

La résolution du point est de trois sur 
quatre. Chaque couleur se voit attribuer 
une trame différente. Grâce à la 
combinaison de ces douze points, on 
obtient 4096 trames. Un écran de 
320x200 pixels s'imprimant avec une 
définition de 960x800 points, le rapport 
largeur s'en trouve donc transformé. 
L'image imprimée mesure 19,5x13,5 cm. 
Vu le nombre de points à traiter, les 
traitements MCopie sont nettement 
moins rapides que les impressions 
classiques. 

MCopie possède un éditeur de trames qui 
permet de redéfinir le jeu complet, puis 
de le sauvegarder. Le crayon optique ou la 
souris allument ou éteignent les points 
des trames. Leur transformation est des 
plus simples. N'hésitez plus à dessiner en 
couleur, vous obtiendrez de belles 
nuances de gris. 

Le logiciel reconnaît de nombreuses 
images, qu'elles proviennent de 
ColorPaint, Praxitel, les Basic, etc. 
MCopie est édité par Mictel. 


MBanque 
Gestion des opérations 
bancaires courantes 


MBanque parle ! Comme les Thomson 
savent parler, Mictel en profite. Le 
logiciel, qui fonctionne sur TO8 et TO9+, 
nécessite (de façon facultative) 
l'extension jeux et musique. Ses 
commandes sont simples : RAZ, DEL, ENT, 
etc. pour tenir les comptes de votre 
carnet de chèques et redresser les 
erreurs de votre banquier très 
malveillant. 

Ses fonctions principales sont 
l'enregistrement d'opérations et leurs 
modifications, la justification des 
opérations (pointage des opérations 
bancaires et actualisations des différents 
soldes), l'affichage des soldes — bancaire 
et réel — (avec total des recettes et 
dépenses). 

ll offre d'autres fonctions comme la 
gestion des prélèvements ou celle des 
virements automatiques, ainsi que la 
recopie d'écran sur imprimante et 
l'impression de diverses opérations. 
MBanque est un logiciel à vocation 
familiale. 

Mictel 








FIL 


Jeu de Dames 
américain 


Le jeu de dames est suffisamment connu 
pour se dispenser d'en rappeler ici les 
principales règles. Cette version s'inspire 
directement de la manière américaine de 
jouer. La présentation est un damier de 8 
lignes et 8 colonnes avec, pour chaque 
joueur, 12 pions répartis sur 3 lignes. Ce 
logiciel permet de jouer soit à deux, soit 
surtout contre la machine qui sert alors 
de partenaire infaillible et de professeur 
pour ce jeu qui, du point de vue stratégie, 
est loin des échecs. Les règles 
“américaines” sont légèrement 
différentes des règles françaises : la 
disposition, les pions ne peuvent prendre 
en arrière, la prise majoritaire n'est pas 
forcée et les fameuses dames ne 
prennent ni ne jouent à distance. Elles 
peuvent simplement se déplacer d'une 
seule case en avant et en arrière. Voilà, 
vous savez tout de cette version du jeu. 
Pour sa réalisation informatique, 
signalons que l'on peut jouer avec les 
flèches, la souris, ou le crayon optique. Il 
suffit de pointer la case de départ, puis 
les cases de déplacement sur le damier. 
Une dizaine de pictogrammes permettent 
de créer ou modifier une partie, de 
retourner le damier, de changer le niveau 
de jeu, de remettre l'horloge à zéro ou 
encore d'afficher les profondeurs de jeu 
utilisées par le programme. Il est aussi 
possible de demander l'analyse des 
solutions. Quelques autres fonctions sont 
disponibles comme l'impression ou la 
lecture d'un fichier. La réalisation 
graphique est correcte, et seuls les 
véritables passionnés de ce jeu y 
trouveront un intérêt ludique certain. Les 
autres peuvent aussi bien découvrir ‘les 
joies” de ce jeu sur un échiquier en 
utilisant les règles précisées plus haut. 
Disquette : 195 F ttc (TO8, TO9, TO9+), 
cassette : 145 F ttc (MO5, MO6, T07/70, 
TO8, TO9, et TO9+). 





CREACOP 


Mois de tête 


Pour T07-70, ce petit jeu de mots 
contient, du moins le prétend, tous les 
mots de quatre lettres de la langue 
française, soit à peu près 1300 mots, si 
l'on ne retient pas les verbes conjugués, 
les mots composés ou les participes 
passés. On remarque cependant que les 
mots de trois lettres mis au pluriel ont 
été retenus. 

Le jeu se joue à un ou deux joueurs avec 
trois niveaux de difficulté et un nombre 
de tours entre 1 et 9. Un tour correspond 





à la découverte d'un mot choisi au hasard 
(avec un s, et non un z), c'est-à-dire de 
manière aléatoire (un seul |, et non deux). 
On dispose d'au maximum 20 essais pour 
découvrir le mot caché, et à chaque essai 
ce sont dix points qui sont perdus. Si un 
mot n'est pas connu, 10 points sont 
également perdus. A ce propos, je réclame 
au moins 30 points de bonus pour le refus 
de coda (notation musicale), de tire 
(friandise ou vol à la tire) et skua 
(méchant stercoraire de l'Arctique). Avec 
un peu de patience, je suis sûr de ne 
pouvoir placer skip ou même sida, mais 
c'est vrai que la langue française sait se 
préserver. Le sida ne passera pas par 
mot. 

Les trois niveaux de difficulté se trouvent 
dans la réponse du programme aux 
propositions du joueur. Au premier 
niveau, les lettres bien placées sont 
rouges, celles présentes dans le mot mais 
mal placées sont vertes. En gros, du 
vocabulaire mâtiné de Master Mind. Pour 
les deux autres niveaux, c'est la 
désinformation qui s'empare du jeu 
puisque l'on ne sait pas quelles sont les 
couleurs qui indiquent les lettres bien ou 
mal placées. Pour faciliter les choses, une 
couleur parasite infeste les réponses et, 
au dernier niveau, chaque lettre est 
colorée au hasard. Raffinement suprême 
du jeu, c'est celui qui a le plus gros score 
qui gagne. 

J'oubliais, la solidarité informatique joue 
tout de même lorsque, devant l'échec 
total, le joueur se voit offrir la solution. Il 
reste le dictionnaire et les livres de 
Scrabble pour aider un peu. Peu de 
prétention éducative dans le jeu, 
seulement de bons instants de révision, 
mais on aurait du mal à y passer une 
soirée complète. La réalisation suffit 
largement à l'intérêt du jeu. 


Lionel Simon 


X. RAY 


Incroyable, inimaginable, inadmissible, 
intolérable, etc. Pourtant, j'ai bien vérifié 
avec un même logiciel, mon X. RAY 
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fonctionne ! L'éditeur étant français, on 
ne peut accuser de quelconques rayons X 
de l'avoir détérioré à la douane. 

La jaquette annonce : vous aimez vous 
battre contre un adversaire coriace, vous 
aimez l'originalité ? Alors ne pénétrez pas 
dans l'univers de X Ray ! Sauf peut-être 
pour l'originalité. Car, depuis bientôt cinq 
ans, on ne trouve plus de logiciels aussi 
mauvais. Cela lui donne au moins un côté 
“rétro”. 

Bref, si l’un de vos copains le possède 
déjà, fauchez-le lui pour étoffer votre 
collection de “bides” ! 

De quoi s'agit-il exactement ? D'une 
espèce de Lode Runner simplifié à 
l'extrême. Les programmes des lecteurs 
de TEO lui sont souvent supérieurs. Il n'y 
a qu'à regarder la photo pour juger du 
graphisme et le scénario est inexistant. 
Que c'est-il passé chez Microïds après leur 
fameux Grand Prix 500 cc qui fut l'un des 
meilleurs jeux de l'année dernière ? 





Microids 

Arcade 
BRUTAGE : : 
MATERIEL : * MO, TOS, TO9, 109+ 
Poker 


Amateurs de flush et de bluff,asseyez- 
vous devant le tapis vert vertical de cette 
réalisation nettement au-dessus de la 
moyenne. Enfin des figures qui 
ressemblent à quelque chose, les 
graphismes de cartes sont séduisants. Le 
son, quant à lui, n'est pas terrible, mais 
suffisant pour jouér au poker... 
L'animation est par trop inexistante, les 
cartes ne se promènent pas en tous sens, 
elles sont simplement affichées en rang, 
face au joueur. Cela évite les pertes de 
temps entre chaque partie pour les 
inconditionnels de l'enfer du jeu. 

En début de partie, vous décidez de la 
fortune qui vous est allouée, de 500 à 

5 000 dollars. C'est drôle, on emploie 
toujours les dollars, même chez les 
éditeurs français. Bon, un conseil tout de 
même : ce n'est pas votre fric, alors 
n'hésitez pas, bluffez un maximum ! 


EDITEUR : 3. Gazoline Software 
GENRE Su en Poker 
ANIERET 20 ee a sudo ie 
GRAPHISME"... sie 
BRUITAGE SUR ee ns : 
MATERIEL: 5e MO, TO7-70 











s Passagers du Vent II 


L’Heure du serpent 


e scénario des « Passagers du Vent » 
s'inscrit dans une époque étudiée à la 
loupe pour fournir des dizaines de détails 
vraisemblables. Amoureux du détail, 
l'auteur de la série BD, François Bourgeon 
vous embarque sur la Marie-Caroline par 
le truchement de ce logiciel. 

La première partie des ‘Passagers du 
Vent” avait fait l'unanimité de la critique. 
Sortie sur Thomson pour sa première 
version, elle nous avait fait découvrir les 
possibilités extraordinaires d'affichage 
graphique de ce micro. Côté dessin, donc, 
rien à redire. 

Le mode d'action qui gérait l'aventure 
était également nouveau. En tout cas, je 
n'en connaissais pas d'autres avant de 
découvrir “L'Affaire”, logiciel pour MSX du 
même éditeur. Son principe : des fenêtres 
qui s'ouvrent en surimpression du décor 
et constituant en elles-mêmes des 
dessins à part entière. Pour afficher ces 
fenêtres, il suffit de cliquer dans le décor 





nn à 


La L sf V2 





de fond un personnage ou une scène pour 
les voir apparaître. Le bas de l'écran est 
réservé au texte proprement dit. Le 
visage de chaque intervenant (Isa, Hoël, 
etc.) s'affiche avec une bulle contenant les 
pensées ou la phrase que le joueur lui fait 
prononcer en les choisissant parmi 
plusieurs. “Les Passagers du Vent - 2" se 
déroule de façon similaire, avec 
graphismes aussi aboutis, fenêtres et 
icônes toujours là. Mais la grande 
nouveauté réside dans le fait qu'un joueur 
n'ayant pas réussi à franchir un tableau 
peut tout de même apprécier la suite du 
“roman”, ne serait-ce qu'en images, en 
voyant défiler les décors. Cette nouveauté 
présente un intérêt de plus, le joueur 
mieux comprendre les différentes phases 
où il a pu se tromper ou voir qu'il a oublié 
d'effectuer telle ou telle action. 

Le premier coffret contenait l'album n°1 
des ‘passagers du vent”, qui permettait 
d'entrer plus facilement dans l'histoire. Le 


Les Amazones du roi 
égalent en adresse ses 
meilleurs guerriers. Isa 
saura-t-elle se sortir du 
piège tendu par 
Viaroux ? 


La troupe, grossie des 


esclaves de Boisboeuf, 
est en route pour Suda. 


C'est ici qu'isa ou 
Aouan croiseront leur 
destin. 
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P.24 album n°4 
ernière image) 
Le graphisme de la 
bande dessinée, réalisé 
par Bourgeon, a été 
scrupuleusement 
4 respecté. En voici un 
ue dés exemple frappant. Isa, 
2 Can Viaroux et Montaguère 
‘2 A 11 Ce Pi vba à 
Tv k auprès du ro ngla.. 
y AN | Wz: Cliquez sur le sm ya 
NW, MN #= J fond de l'écran, pour 
l V à rles 
LL (4 protagonistes. 


début de ‘L'Heure du serpent” 
correspond à l'album n°4 — il y en a cinq 
en tout. 

Bien que certaines scènes soient 
inversées ou que les dialogues diffèrent 
quelque peu, la lecture du quatrième 
tome aidera le joueur dans la réussite de 
son aventure. 

Bref, ceux qui ont déjà joué avec le 
premier logiciel acquéreront à coup sûr ce 
deuxième logiciel des ‘Passagers du 
vent”. À découvrir absolument pour les 
autres. 


EDEURS. 0 Infogrames 
GENRE ........ ..... Aventure BD 
INIERET A 
GRAPHISME ..,,:......... jee 
MATERIEL... TO8, TO9, TO9+ 








… A l'heure du serpent, 
Isa va-t-elle périr 
dévorée par les 
crocodiles... 





Viaroux arrive. C'est 
alors que John se 
précipite sur lui. 





Que mijote Alihosi ? Isa 
M en avoir le coeur 


CHE FRAPPE 7 





John a enlevé Enora, la 
fille de Mary. Il la jette 
dans un marais. 
Sauverez-vous le bébé ? 
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The Way of fhe tiger 


FIL présente une adaptation Thomson 
réussie de “The Way of the tiger”, Tilt 
d'or 86. C'est un logiciel d'art martial de 
très haute volée. 
Pour se montrer digne de son maître, le 
joueur doit passer avec succès une série 
de trois épreuves. Il dispose pour cela de 
seize types de mouvement (attaques ou 
parades). Tous ces mouvements sont 
commandés à partir de la manette de jeu 
(huit positions couplées ou non avec le 
bouton de tir). 

En début de partie, l'action se situe en 
plein désert où les seules armes du joueur 
sont ses pieds et ses mains. Ayant-subi 
l'entraînement rigoureux de karateka, il 
est censé franchir les pièges disposés par 
le maître. Les ennemis sont nombreux et 
leurs techniques de combat des plus 
variées. C'est ainsi qu'au premier tableau, 
un bien drôle de nain va tout à coup se 
transformer en petit spectre virevoltant, 
devenant extrêmement dangereux en 
position de faiblesse. Ailleurs, ce sera un 
Minotaure qui, au cours du combat, 
essaiera de trouver le moment propice 
pour encorner le joueur. 

C'est sur un tronc d'arbre jeté entre deux 
berges que se déroule la deuxième partie. 
Comme, armé d'un bâton, vous devez 
absolument défendre l'une des berges, 
vous n'avez pas le droit de fuir. Les 
mouvements brusques entraînent la 
chute irrémédiable. Enfin, c'est le maître 
qui vous donnera la réplique lors de la 
dernière partie. 

Avec un peu de pratique, vous apprendrez 
non seulement à maîtriser les techniques 
de combat, mais vous découvrirez aussi 
les diverses attaques et parades de vos 
adversaires. 

Les décors perspectifs sont construits sur 
trois plans —horizon, arrière-plan, et 
premier plan — qui se déplacent à des 
vitesses différentes, simulant ainsi l'effet 
stupéfiant d'un traveling de cinéma. 


EDREUR 0 Lu. AL 
GENRE .:...,,.,2, . Arts martiaux 
INIERET 2, ar 
GRAPHÈME :.......,.,... no 
BROMAGSE 0... ,.. sa 
MATERIEL ....,....... MOS5, MO6 





LOGICIELS 





Les Thomson prennent de belles couleurs Robinson Crusôe 


avec le printemps. Infogrames semble 
avoir fait des émules. Les graphismes de 
nombreux logiciels se sont nettement 
améliorés. Ceux de Robinson Crusoé en 
sont un très bon exemple. 

Les décors de ce jeu d'aventures sont 
superbes, mis à part ceux des ‘Passagers 
du Vent”, rares sont les logiciels aussi 
beaux. 

Au premier plan, un homme allongé sur 
une plage, apparemment épuisé. Au 
large, les restes d'un navire qui s'est 
vraisemblablement drossé sur des récifs. 
Elargissons le champ de la caméra... il 
s'agit en fait d'une île perdue en plein 
océan. Un coup d'oeil indiscret sur les 
papiers d'identité du naufragé nous 
apprend que nous sommes en présence 
du célèbre Robinson Crusoé. Mais 
asseyez-vous, vous devez être épuisé, car 
cet homme n'estiautre que vous-même | essentis une grande fierte quand i 
Sur ce rivage sauvage et isolé, il lutte 22,"258006 "c'etait la plus grande ; 
désespérément pour sa survie. En effet, baraque monoxhnyle que j’eusse jamais vue. 
dès son réveil, un gorille monstrueux Helas, elle etait beaucoup trop lourde, 
l'agresse. Mais, revenons un instant en 
arrière ! Robinson s'éveille. à l'écran, le 
personnage se lève. Non seulement les 
décors sont beaux mais nous avons droit 
à une animation. Quelques tours de 
manivelle, le film avance jusqu'au moment 
où le monstre fait son apparition. À 
nouveau arrêt sur image : une fenêtre 
s'ouvre en incrustation sur une partie du 
décor. Une tête de grand singe aux dents 
acérées s'y encadre. Et sa gueule bouge ! 
En fait, la philosophie du logiciel est tout 


Robinson s’éveille sur la 
plage d’une île 
déserte... 








entière représentée par ces premières D'un promontoire, il 

images. Des fenêtres vont apparaître de découvre son territoire et 

temps à autre, au gré des actions. Mais construit un radeau. 

surtout, le spectateur-acteur appréciera - 

les mouvements des divers objets ou RE 
personnages qui prennent part à cette 


aventure. 

Sept épisodes aideront Robinson à 
réapprendre une multitude de choses que 
les hommes ont oublié au cours des 
générations. Son quotidien est rempli par 
la recherche de la nourriture, des 
vêtements, des outils et des matériaux 
nécessaires à sa survie. Il faudra 
rapidement trouver Vendredi qui 
constituera une aide précieuse dans la 
lutte contre différents ennemis. 

Vous êtes également le metteur en scène 
de cette histoire. Des phrases 
apparaissent en haut de l'écran, toutes 
numérotées. ce sont autant de 
possibilités d'action qui vous sont 
proposées. votre décision fera s'ouvrir 


Des cannibales 
viennent faire ripaille sur 
la plage... 





une fenêtre, disparaître un élément du 11 y : avai Le HART ire bat tant 
décor, ou en faire apparaître un autre... Chose ret ET us de que 


Certaines décisions pourront avoir une 
influence bonne ou mauvaise, sur vous- 
même, sans modification des graphismes. 
Alors si, comme le véritable Crusôe, vous 
voulez regagner l'Angleterre, après de 
longues années de retraite forcée, faites 
travailler votre matière grise, c'est 





indispensable ! 

EDHEURS Sas Coktel Vision 

GENRE 5... .. Aventure 

INTERER esse enr 2. 

BRUITAGE ...... A ie 

MATERIEL, ... TO8, TO9, 109+ Serait-ce le vaisseau du 





retour vers l'Angleterre ? 
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Coktel Vision nous avait déjà servi la 
potion magique d'Astérix, il met 
maintenant Lucky Luke — le cow-boy 
solitaire — et les frères Dalton en scène. 
Nitroglycérine est avant tout un jeu 
d'arcade conçu autour d'un simili jeu 
d'aventure. Le premier écran de 
présentation offre un superbe graphisme 
qu'on ne retrouve pas tout au long de la 
partie. 

L'action se situe dans une petite cité de 
l'Ouest américain, représentée en vue de 
dessus. Lucky Luke y est repérable grâce 
à son fameux chapeau. Mais le dessin est 
loin de celui d'Uderzo. 

Comme il est stipulé dans la notice que le 
bouton de tir de la manette de jeu 
permet de pénétrer dans les différentes 
maisons de la ville, je choisis la gare... 
Mais mon personnage reste à la porte ! 
De plus, on m'annonce que le train ne 
prend pas de voyageurs. Nous ne verrons 
donc pas la gare, pas plus que l'armurerie. 
Sur le manuel, un plan de la ville indique 
les points où l'on peut entrer. Je poursuis 
donc jusqu'au bureau de la Central Pacific. 
Voici enfin l'image d'un personnage qui 
apparaît en incrustation dans le décor. 
C'est lui qui me fait part de ma mission. 
Je ressors et visite la ville plus avant. 
dans une rue, j'arrive au bord de l'écran, 
m'attendant Engagé à l'inévitable 
scrolling permettant de découvrir la suite 
de la rue. Eh bien, non, pas de scrolling. 
Bref, après être passé chez l'armurier — 
qui daigne maintenant servir un tonneau 
de poudre — , je me rends à la gare — 
maintenant ouverte elle aussi —, où un 
machiniste m'ordonne presque de 
nettoyer la ville avant de le rejoindre. 
Vous vous imaginez Lucky Luke ainsi 
commandé ! 

Heureusement, les graphismes 
s'améliorent. A l'intérieur d'un saloon, des 
cow-boys me tirent dessus. Je ne peux ni 
me baisser, ni plonger, seulement me 
déplacer en bas de l'écran, de droite à 
gauche, comme dans les tout premiers 
jeux d'arcade. J'en tue un, puis deux, puis 
trois, puis quinze... Je commence à 
m'endormir quand, au bout du vingtième 
mort, l'image change. Me voici dans une 
rue où l'on me tire encore dessus. J'abats 
encore vingt cow-boys, ce qui termine le 
deuxième épisode. 

C'est maintenant un rocher placé en 
travers de la voie ferrée que je dois faire 
exploser. En fait de cordes, j'ai affaire à 
un jeu d'échelles. Je pars à droite prendre 
le baril de poudre, je ramasse quelques 
cartouches qui traïnent de-ci de-là. La 
prise du calumet chasse le chef indien qui 
me barrait le passage et un totem 
infranchissable disparaît. Je peux donc 
prendre le pistolet qui s'offre à moi et 
j'abats les quatre Dalton d'un coup. Je 
récupère la corde qui me ramène au 
rocher. Arrivé à sa hauteur, il explose. 
Tout est fini... mission accomplie. 


Les bandes dessinées sont à l'honneur. Nifroglycérine 







Lucky Luke s’équipe en 
munitions... 





Il devra ensuite dégager 
la voie. 


EDHEUR 5 5, 2 Coktel Vision 
GENRE ..... Arcade/aventure 
INIERER 2, ee 
GRAPHISME: 5.1... 7” 
BRUITAGE .......... nn . 
MAITRE, O8, TO9, 109+ puis remettre le train sur 


la bonne route. 
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@ VENDS 109 : 2 850 F; mo- 
dem :450F ; EXT 60K : 650F, 3 
logiciels spéciaux Comp- 
tabilité, des recettes dé- 
penses et amorissements 
et 2035 : 720 F. Dominique 
ROSUEL. (Eaubonne). Tél. :(1) 
39.59.01 42. 


@ VENDS ou échange 11 
jeux sur MOS prix spéciaux 
50 F l'un. Eric DUBOIS 
(GIERES). Tél. : 76.89.4495. 


@ VENDS 107/70 cartouche 
Basic 10, contrôleur, lec- 
teur de cassettes, manette 
jeu, 5 jeux, Cube Basic, li- 
vres sous garantie (déc. 
87). Prix : 4 000 F. Eric CAVRIL 
(Vitry-en-Artois). Tél. : 21.50. 
20.01. 

®@109 cherche contacts 
dans les Alpes-Maritimes. 
Nous cherchons une im- 
primante pour 109. Sylvain 
BLONDELET (Carros). Tél. : 
93.08.72.55. 


@ pour MO5 ou 107/70 
VENDS : Yeti-Pulsar 2, Elimi- 
nator, Pilot, Un Mot pour le 
compte. Pour 107: l'intrus 
mandragore, contrôleurjeu 
et contrôleur imprimante ‘+ 
câble. LPCRT I dpt 
Tél. : (1) 34.67.14.62. 

© MOS5 RECHERCHE logiciels 
pour MO et TO à échanger 
Nicolas FREGE (Nanterre). 
Tél. :(1) 47.25.55.93. 


@ VENDS VG 5000 neuf + 

lecteur K7 + 5 logiciels 900 
: F. Thierry BEURCQ (La Cou- 

ronne). Tél. : 45.67.21.25. 











@ VENDS MOS5 + magnéto 
+ Ext musique + 2 manettes 
+ crayon optique + en- 
semble télématique + 20 
logiciels + 50 K7 : 3 000F, ou 
séparément. Sébastien 
LOMME (Langres). Tél.: 
25.87.3653 (après 17 H). 


© VENDS ou ECHANGE logi- 
ciels T07/70,MOS, Mandra- 
gore, Vol Solo, Laraté, Las 
Vegas, Green Beret, Phone- 
mia, prix à voir, demander 
Sylvain. (BOULOGNE-SUR-SEI- 
NE). Tél. : 46.08.55.51. 


@ VENDS TO9 + moniteurcou- 
leur HR + modem + impri- 
mante PR90 - 600 + logi- 
ciels dont téléchargement 
prixé 500 F. 87000 (LIMOGES). 
Tél. : 55.34.43.24. 


© VENDS MOS5 + contrôleur 
+ 4 manette + 1 lecteur de 
cassettes + 4 jeux (Dieux du 
Stade 1, La Mine aux Dia- 
mants, Air Attack, Un Mot 
pour le compte) + de 6 
moins encore sous garan- 
tie. (LOZANNE). Tél.: 
78.47.95.67. 


@ VENDS MOS5 (août 85) + 
magnéto K7 + ext. musique 
et jeux + 2 joysticks + 2 ma- 
nuels + nbreux logiciels 
(plus de 20) avec ou sans 
moniteur couleur hr. Prix in- 

t, (ORADOUR-SUR-VAY- 
RES). Tél. : le soir 55.78.11.49. 


© VENDS 107/70 + magné- 
t6 + livre 4 500 F. VENDS Hec- 
tar 2HR + magnéto incor- 
poré + manefñle de jeu + 
44 als + livres 1 S00F. 
(SALINDRES). Tél. : 66.85.8716. 

















© ECHANGE et ACHETE lo- 
giciels pour 1O7 + 16K à 30 
F l'un. Stéphane BOULERY 
(CROLLES). Tél. : 76.08.96.75. 


© VENDS TO 9 + mon. cou- 

leur HD + manette jeu + trai- 

tement fichiers + trait. texte 

+ 20 disquettes. 4 500F. 

AE Rate Tél. : 
7.58.72.07. 


@ CHERCHE imprimante 80 
colonnes pour TO9, lecteur 
de aisquettes 3"1/2 pour1O9. 
(BEYNES). Tél. : 34.89.63.61. 


@ VENDS nombreuses cas- 

settes de jeux pour MOS à 

109 + bon état avec embal- 

LE d'origines, 80 F pièce. 

Tél. : 77.37.95.84 après 19h. 

DARLSIFANE Tél.: 
7.97.95.81. 


@ VENDS logiciels pour MOS 

No : cap Sur Dakar (90F); 

cio (190F), Mandragore 
à LY 


150F). ON). Tél: 
829623 : / 


@ CHERCHE logiciels utilitai- 
res (surtout) où jeux pas 
chers pour TO8 (lecteurs dis- 
quettes 3,5 pouces). (LEMP- 
DES). ïTél.: entre 17h30 et 
49h au 73.61.61.22. 


@ VENDS ou ECHANGE pour 
108, TO9 et 109 + logiciels : 
Green Béret, Vol Solo, Les 
Passagers du Vent, Super 
Tennis, etc. (SAINT-QUENTIN). 
Tél. : 23.62.13.26. 


@ VENDS pour 107 et TO7- 
70, QDD + disquettes + DOS 
+ manuel 4 000F. clé pour 
le T07-70 100 F, clavier gom- 
me pour 107 100F, ZX 84 + 
carte son + HRG + couleur 
+ K7 + livres + module de 
chargement. (FLEAC). Tél. : 
45.94 09.86. 




















___ 


@ VENDS Thomson 107-70 + 
Basic 1.0 + lep + nombreux 
jeux, le tout pour 2500F. 
Tél. : 29.80.9628. (DOULCON). 


© CHERCHE POSSESSEURS de 
109 + achète Aigle d'or, Les 
Dieux du stade Il, beach- 
head, Speedway, pour un 
prix si possible allant de 
50F à 120F je vous remer- 
cie. Tél.: 30.62.86.79 (COI- 
GNIÈRES). 


© À SAISIR : TO7 + 16K + Ba- 
sic prix 1 000F. contrôleur 
(CD 90015) + lecteur dis- 
ques ne 070) : 4 000F, 
contrôleur communication 
+ câble + imprimante (PR 
90.080): 1200F. Tél.: 
56.86.18.49. (BORDEAUX). 


@ VENDS 2 manettes de jeu 
+ extension musique et jeu 
(250 F), logiciels à 50 %. tél. 
le soir 44.57.45.76. (CHAN- 
TILLY). 


© VENDS QDD (107 ouMOS5) 
état neuf avec Vampire, Vol 
Solo, Livre du Dos : 750 F (va- 
leur 1 su Tél. : (D 
34.67.14.62. (MAGNY-EN-VE- 
XIN). 

© VENDS 107-70 + Basic 1.0. 
+ lecteur de K7 + interface 
de communication + livres 
+ programmes : prix 4 900 F 
à débattre. VENDS lecteur 
de disquettes 320 K, prix 
2 200 F. Tél. : 60.86.06.74. (VIL- 
LABE). 

@ 109 isolé de corespon- 
dants mais pas de jeux, 
CHERCHE toute personne 
pour effectuer des échan- 
ges sur disques ou K7 en 
possède une bonne cin- 
quantaine. SIAUD Christian, 
45, Deffrie, Aïfres, 79230 
(PRABECG). 

















@ VENDS 107/70 + Basic + 
lecteur K7 + logiciel initia- 
tion + jeux divers (Mandra- 
gore Aigle d'or.) 2700F. 
él. à M. BORIE 43.55.94.85 
après 19h. (PARIS). 


@ VENDS MOS + lep + 10 
jeux (Beach-head, l'Aigle 
d'or.) + crayon optique. 
Valeur 3 500 Fvendu 2 500 F. 
Tél. : 84.82.10.68. (DOLE). 


© CHERCHE renseignements 
sur TOB, brochage connec- 
teur arrière et liaison série + 
rens. sur compatibilité TO8 
109 + TO7. Tél. : 73.33.92.61 
(GERZAT). 


@ VENDS 107 + 16Ko + 8Ko 
+ Lect. K7 + lect. et contrô- 
leur disk + 2 manettes + 
moniteur couleurs + logji- 
ciels valeur 12 000F, cédé 
3 500 F. Tél. :63.39.58.93. (VA- 
LENCE). 


© VENDS drive sans contrô- 
leur pour Thomson TO7, prix : 
4 500 francs. Tél. :42.28.92.84. 
(PALETTE-LE-THOLONET). 


© CHERCHE possesseur de 
MOS5 pour VENTE ou ECHAN- 
GE de logiciels (Aigle d'or, 
Empire, Pulsar 1, Crocky 2). 
Tél.: 20.46.52.70. (TOUR- 
COING). 


© VENDS 107 + ext. 16K + 
cartouche Basic + cartou- 
che Logo + initiation à Lo- 
go + Logo manuel de référen- 
ce: prix 1500F. Tél.: 
61.09.6918. (ST GENIES-BEL- 
LEVUE). 


© CHERCHE possesseurs de 
MOS5 pour gr rs jeux. 
Tél. : 75.44.76.79. (VALENCE). 


© VENDS TO7, ext. 16K,2 lec- 
teurs disquettes 80 K avec 
contrôleur + interface son 
et joystick + interface 
communication + Basic + 
Pictor + Budget, Caractor + 
nbrx disquefles et jeux + li- 
vres. Prix 2200F. Tél.: 
43.32.94.25. (COUBRON). 


@ VENDS 107/70 mono + 
crayon optique + cart. Ba- 
sic, Logo, Gérez vos fiches + 
lect. K7 + 10 jeux + livres + 
can. colorpeint.pour2 500 F. 
Tél. :64.30.28.14. (LAGNY-SUR- 
MARNE). 


























© VENDS T07/70 clavier mé- 
canique (janvier 86) avec 
lecteur de K7 + 2 manettes 
de jeux et extension jeux et 
musique. 10 logiciels de jeux 
+ cartouche de Basic 1.0: 
3000F. Tél.: 60.19.20.75. 
(IGNY). 


@ Je RECHERCHE des pos- 
sesseurs de MO5 pour échan- 

ge ou achats. Tél.: 
0.97.66.09 (TREGUNC). 





© VENDS : MOS5 + moniteur 
monochrome + crayon op- 
tique + LEP + jeux, utilitaires, 
livres et revues 300F. (ga- 
rantie 4 an). clavier méca- 
É v Tél. :45.82.59.61. (PA- 


© VENDS, ECHANGE, ACHETE 
logiciels sur K7 et Q.DD. 
pour107/70. 1él. :94.51.27.38. 
(LES CADENEAUX). 


© VENDS 107/70 + Basic + 
lecteurK7 + joysticks 2 500 F. 
+ Logiciels : 4 OOOF. + im- 
primante PR90-600 : 2 200F. 
Tél. : 43.43.0647. (PARIS). 


© VENDS T07/70 + lecteur 
enregistreur K7 + K7 initia- 
tion Bacic, Colorpaint, Ani- 
matix, nbrx livres jeux. rs 
mars 86) prix 3600F. Tél. 
hres repas 23.79.77.25. 








@ ECHANGE ou VENDS jeux 
sur MOS. Lefèvre Cédric, 24, 
rueR. Dorgeles, 80440 BOVES. 
Tél. : 22.09.30.25. 


© VENDS 107/70 LEP exten- 
sions jeux et manettes im- 
primante thermique, logi- 
ciels et livres. L'ensemble 
2300F. Contacter Florent 
Mery au 45.39.43.91. 9, villa 
Brune, (PARIS). 


© CHERCHE logiciels pour 
109 sur disquettes 31/2 
dans les Yvelines. Tél.: 
34.89.12.20. après 17h 30. 
(BEYNES). 


© RECHERCHE pour 107/70 
contrôleur de communica- 
tion pourimprimante (cc.90.- 
ee tél. :43.32.12.18 (LIVRY- 
GARGAN). 





© VENDS cause double em- 
ploi 07-70 + crayon opti- 
que + moniteurcouleur42 cm 
+ lecteur-enregistreur K7 + 
ext. musique et jeux + 2 
manettes + cartouches Ba- 
sic et Pictor. 4000F. Tél. : 
20.71.74.45. (ORCHIES). 


@ Urgent ECHANGE nom- 
breux jeux pour MOS5 : Sor- 
cery 1, 13D Fight, Karaté... 
cause erreur, ECHANGE jeux 
107/70 contre jeux MOS. 
Tél.: 77.24.79.32. (LA 
CONDAMINE). 


© VENDS, ECHANGE logiciels 
pour 1O07-107-70, MOS K7 
ou disquettes. Tél. :61.44.87.62. 


(TOULOUSE). 


@ Urgent VENDS MOS + lec- 
teur enregistreur K7 + ex- 
tension jeux + 2 manettes + 
stylo optique + Dieux du sta- 
ge + Pictor + Calculs nu- 
mériques + anglais + Man- 
dragore. Valeur : 3 500 F.Ven- 
du : 3 000 F. Tél. : 86.62.00.77. 
(GAGNY). 


© MO5 donne 10 log. com- 
merce + revues + livres + 20 
prog. + listings à acheteur 
MOS + lep + cray. + 2 ma- 
nettes dans embal. orig. val. 
6000F. Vendu 1 950F. Tél. : 
51.93.00.90. (CHALLANS). 


© VEND MOS + lecteur en- 
registreur de K7 + crayon 
optique + extension son + 
2 manettes + jeux. Tél.: 
70.44.5792. Demander Da- 
vid (MOULINS) 2 000 F. 





@ VENDS TO9 + moniteur cou- 
leur + 2 lecteurs disks 3°5 SF 
+ souris + manettes + logi- 
ciels (traitement texte, fi- 
chiers, tableur, dessin, jeux), 
sous-garantie : 5 000 F. Tél. : 
45.07.24.78. (MEUDON). 


@ VENDS T07-70 + clavier 
mécanique + Basic + contrô- 
leur son + 4 manettes + lep 
+ TV couleur 36 cm + logi- 
ciels + manuels + nombreu- 
ses revues : 3 600 F. Tél. : (1) 
48.21.33.82. (PIERREFITIE). 


© CHERCHE possesseur d'un 
107-70avec QDD, pouréchan- 


ge de programmes. lél.: 
74425 34 (DOUCHY). 








@ VENDS Interface pour ro- 
bot Fischer 500 F+ Plotter/- 
scanner 500 F. Bernard Poi- 
rot 43 bld Charles Péguy, 
28000 (CHARTRES). 


© VENDS Casio PB700 Ram. 
45 Ko + imprimante F À 10: 
4 couleurs + mini magné- 
tophone + nombreux ac- 
cessoires. idéal pour débu- 
ter : 2 500 F. Tél. : 39.58.47.53. 
(L'ETANG LA VILLE). 


@ VENDS logiciel «Las Ve- 

S» sur disquettes 525 
Pioban pour T1O7-70. Va- 
leur : 260 F, vendu 150 F. état 
neuf avec notice. Tél.: 
60.69.66.57. (CHARTRETTES). 





@ ACHETE Théophile n° 13 (fé- 
vrier 86) + n°11 (déc. 85) 
40 Fchaque, ECHANGE jeux, 
trucs, programmes pour 
MOS5. Réponse assurée. Tél. : 
54.74.03.48. (BLOIS). 


@109 désespéré cherche 
moyen de mettre dessin 
Colorpaint sur Paragraphe, 
écrire à CAMÉ Philippe, 1, 
rue du Marché, 68300 ST- 
LOUIS. 


@ Vends logiciel original 
TNT. en K7 pour MO-TO, son 
prix seulement 110F ou je 
l'échange contre l'original 
en K7 de MOTO de Vam- 
pire. DUMAS Christophe, 142, 
bd de France, 91220 BRETI- 
GNY/ORGE. 


@ Echange ou vends logji- 
ciels pour MO6 (Astérix, 
Blue War, Vol Solo, Anima- 
tix) 120F l'un, 370F les 4. 
Cherche Vampire pour MO6, 
bas prix. Tél. 41.72.5147 (ST 
FLORENT LE VIEL). 


@ Dans Toutankhamon 
quel est le nom de l'amur- 
lette du pouvoir? Tél. 
98.77.23.40 (STOSSWIRH). 


@ Vds TO9 2 750 F ext. 64K: 
750 F,modem :650 F, le tout 
3 800F. Logiciel personnel 
de compta Aga : 720F. Tél. 
39.59.0142 (matin) (EAU- 
BONNE). 


@ Vends MOS5 clav. Méca + 
LEP + monit. coul. + crayon 
+ log. + jeux + livres, état 
neuf à saisir. tél. (1) 99.48.5199. 


@ Echange logiciels (jeux, 
éducatifs, etc.) sur K7 pour 
MOS. Tél. 43.44.40.77 (MA- 
ÇON). 


@ Vends ou échange jeux 
pour107/70 surK7. Cherche 
corespondant(e)ssur1O7/70. 
Tél. 86.62.37.84 (JOIGNY). 


@ Vends logiciels de jeu 
« Karaté » et « Dieux du stade 
2» pour 109, disk (valeur 
220 F l'un, vendu 420 F l'un). 
Bruno LAFON, 18, bd StPierre, 
68000 COLMAR. 


@ Vends TO7-70 + clavier 
mécanique + TV couleur 
36cm + 2 paires de ma- 
nettes + extension jeux + 
LEP + Basic 1.0 et 128 + lo- 
giciels + livres + revues (au 
Choix) : 3 500 F Less él. 
48.21.33.82 (PIERRÉFITIE). 

@ Vends 107/70 + Basic 1.0 
+ ext. jeux + Airbus + Pulsar 
1 + Minotaure + MGV: prix 
3200F à débattre. Vends 
lecteur disquette 320ko 5 
4/4: prix 3000F. Tél. après 
49h au 42.87.68.61 (MON- 





























TREUIL S/BOIS). 
@Vendons logiciels K7 
pour Thomson : Numéro 10 


110F), Carte de France 
80F), Un mot pour le 
compte (80F), Planète in- 
connue (100F), Boichoï 
er F), Sapiens (130F), 
092 n°4 (130 F). Possibilités 
de lots. Tél. 48.52.4988 
{CHOISY-LE-ROI). 
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Disponible sur THOMSON cassette et disquette, 
AMSTRAD cassette et disquette, 
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EXO LT 11e EPA 








ROHIBITION 





LÀ | | 104 br E = mp 


eh) DRE Mess 


ARCADE 


Disponible sur : 


AMSTRAD CPC 464, 664, 6128 D 
IBM PC ET COMPATIBLES 
ATARI 520/1040 ST 
THOMSON TOB - TO9+ 
THOMSON MO6 cassette 
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